用于文本的VBA搜索变量范围

Question

我想编写一个vba宏，它在变量范围内搜索值“x”和“X”，并且如果找到其中一个这些值，我想隐藏该行。 我知道如何使用范围（单元格（行，列），单元格（行，列））来创建范围变量，但是当我将变量范围与搜索结合起来时，我无法使其运行。

Sub zeilen_ausblenden() 
    Dim count As Integer 
    Dim maxrow As Integer 

    maxrow = Worksheets("Anwendungen -> Prozesse ").UsedRange.Rows.count 


    For Row = 11 To maxrow 

     count = WorksheetFunction.Range("K" & Row & ":KB" & Row).Find("x", "X", LookIn:=xlValues) 

     If count > 0 Then 
     Else 

      Rows(Row).EntireRow.Hidden = True 

     End If 

    Next 

End Sub 

Answer 1

试试这个代码：

Sub zeilen_ausblenden() 
    Dim wks As Excel.Worksheet 
    Dim found As Excel.Range 
    Dim maxRow As Integer 
    Dim row As Long 
    '----------------------------------------------------------- 


    Set wks = Worksheets("Anwendungen -> Prozesse ") 
    With wks.UsedRange 
     maxRow = .row + .Rows.count - 1 
    End With 


    For row = 11 To maxRow 

     Set found = wks.Range("K" & row & ":KB" & row).Find("x", LookIn:=xlValues, MatchCase:=False) 

     If Not found Is Nothing Then 
      wks.Rows(row).EntireRow.Hidden = True 
     End If 

    Next 

End Sub