根據行中的值篩選出不是列的行

Question

我正在嘗試編寫一個宏，它將根據行中的值篩選出不是列的列。例如： -

apple banana pear lime 
lime lime lime apple 
pear pear pear lime 
pear banana lime lime 
apple apple apple apple 

所以，如果我濾上面的例子爲apple我得到剩餘的第一，第二和最後一行。

Answer 1

試試這個：

Sub Filter_By_Rows() 
Dim StrToLookFor As String, _ 
    ToHide As Boolean, _ 
    LastCol As Integer, _ 
    Ws As Worksheet 

StrToLookFor = InputBox("Hide the rows not containing that value :") 
Set Ws = ThisWorkbook.ActiveSheet 
LastCol = Ws.Cells(1, Ws.Columns.Count).End(xlToLeft).Column 

If StrToLookFor <> vbNullString Then 
    For i = 2 To Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row 
     ToHide = True 
     For j = 1 To LastCol 
      If InStr(1, Ws.Cells(i, j), StrToLookFor) Then 
       ToHide = False 
       Exit For 
      Else 
      End If 
     Next j 
     Ws.Cells(i, 1).EntireRow.Hidden = ToHide 
    Next i 
Else 
End If 

還是這個版本的多個字符串：

Sub Multi_Filter_By_Rows() 
Dim StrToLookFor As String, _ 
    ToHide As Boolean, _ 
    LastCol As Integer, _ 
    Ws As Worksheet, _ 
    A() As String 

'StrToLookFor = InputBox("Hide the rows not containing these values (separated with '/') :") 
StrToLookFor = "apple/banana" 
Set Ws = ThisWorkbook.ActiveSheet 
LastCol = Ws.Cells(1, Ws.Columns.Count).End(xlToLeft).Column 

If StrToLookFor <> vbNullString Then 
    If InStr(1, StrToLookFor, "/") Then 
     A = Split(StrToLookFor, "/") 
     For i = 2 To Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row 
      ToHide = True 
      For k = LBound(A) To UBound(A) 
       For j = 1 To LastCol 
        If InStr(1, Ws.Cells(i, j), A(k)) Then 
         ToHide = False 
         GoTo HideNow 
        Else 
        End If 
       Next j 
      Next k 
HideNow: 
      Ws.Cells(i, 1).EntireRow.Hidden = ToHide 
     Next i 
    Else 
     For i = 2 To Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row 
      ToHide = True 
      For j = 1 To LastCol 
       If InStr(1, Ws.Cells(i, j), StrToLookFor) Then 
        ToHide = False 
        Exit For 
       Else 
       End If 
      Next j 
      Ws.Cells(i, 1).EntireRow.Hidden = ToHide 
     Next i 
    End If 
Else 
End If 
End Sub