根据 InputBox 条目搜索和过滤

Question

我希望实现以下目标：

1. 通过输入框接受用户输入。
2. 在表格标题中搜索该文本。
3. 过滤找到的列以删除所有空白单元格（只留下包含数据的单元格。）

我找到了一个脚本，给输入框，搜索表头并选择找到的单元格。

我需要将过滤找到的单元格列的步骤合并到这个步骤中。如果我记录步骤，无论我搜索什么，它都会过滤同一列，所以我认为我需要一种方法来读取找到的单元格详细信息并选择该列来过滤掉空白。

Sub Find_First()

    Dim FindString As String
    Dim Rng As Range
    FindString = Application.InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("ACM").Range("B2:DA2") ' This is the table headers
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
End Sub

我现在可以使用以下代码运行它，如果我取消 InputBox，我现在得到的唯一错误是 1004（WorksheetFunction 类）错误：-

Sub Find_First()
    Dim i1 As Integer
    Dim FindString As String

    Dim Rng As Range
    Dim rngData As Range
    Set rngData = Application.Range("A2").CurrentRegion
        FindString = Application.InputBox("Enter a Search value")
        If Trim(FindString) <> "" Then
            With Sheets("ACM").Range("B2:DA2") ' This is the table headers
                Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
                If Not Rng Is Nothing Then
                    Application.Goto Rng, True
                Else
                    MsgBox "Nothing found"
                End If
            End With
        End If

    i1 = Application.WorksheetFunction.Match(FindString, Application.Range("A2:CZ2"), 0)
    Rng.AutoFilter Field:=i1, Criteria1:="<>"

End Sub

Answer 1

看来您确实需要制定自动过滤器：

我在类似的场景中做过这个：

Dim i1 as Interger
Dim rngData as Range
Set rngData = ws.Range("A1").CurrentRegion

使用 Match 查找我匹配 FindString 的列号

i1 = Application.WorksheetFunction.Match(FindString, ws.Range("A1:CZ1"), 0)
rngData.AutoFilter Field:=i1, Criteria1:="<>"