我只是试着用下面的代码进行多重过滤.但我只能在第一行得到行号，之后我就不能了

Question

Sub SplitWords()
Dim TextStrng As String
Dim Result() As String
Sheets("CO REPORT").Select
TextStrng = Range("K6").Value
Result() = Split(TextStrng)
For i = LBound(Result()) To UBound(Result())
Sheets("RSVP SCOPE").Select
'ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$G$791").AutoFilter Field:=1, Criteria1:="=*" & 
Result(i) & "*", Operator:=xlOr
MsgBox Result(i)
Worksheets("RSVP SCOPE").Range("1:1").EntireRow.Hidden = True
Set Report = Excel.ActiveSheet
Dim visRng As Range
Set visRng = Report.UsedRange.SpecialCells(xlCellTypeVisible)
Dim r As Range
Dim j As Integer
For Each r In visRng.Rows 
j = r.row 
MsgBox (j)
Worksheets("RSVP SCOPE").Range("1:1").EntireRow.Hidden = False
ActiveSheet.Range("$A$1:$G$791").AutoFilter.ShowAllData
Next
Next i
End Sub

对于上面的代码，由于单个单元格中会有多个单词，因此将使用拆分单词。我需要从表1中复制一个文本，并在表2的第1列中搜索该值。现在过滤后，我需要显示每个选定单词的行号。在上面的代码中，第一次迭代成功执行。但在第二次迭代中，我得到了

Answer 1

你的问题被打断了。我看到麻烦了：

...
' Dim r As Range
Dim r As Variant
...