Excel에서 여러 텍스트 찾기

Question

Excel에서 매우 많은 양의 데이터가 있고 "태그"가 포함 된 행을 제거하고 싶습니다. 찾기 옵션을 사용하면 단 하나의 단어/검색 만 할 수 있으며 수백 단어가 있습니다. 그 아마 매크로 또는 인수. 나는 다음과 같은 인수를 시도하지만 단지 1

=IF(OR(ISNUMBER(SEARCH({"word1","word2","word3"},A1,B1)))"YES","NO") 

누군가가 PLS 도와 발견했다.

Answer 1

이`= IF (OR (ISNUMBER (SEARCH ({ "단어 1"을 시도 매크로

이

Option Explicit 

Sub RemoveRowsBasedOnArrayCondition() 
    Dim searchTerms As Variant 
    searchTerms = Array("tag1", "tag2", "tag3") 

    ReDim rowsToDelete(0) As String 

    Dim allRange As Range 
    Set allRange = ActiveSheet.UsedRange 

    Dim cell As Range, word As Variant 
    For Each cell In allRange 
     For Each word In searchTerms 
      If InStr(1, cell, word, vbTextCompare) Then 
       rowsToDelete(UBound(rowsToDelete)) = CStr(cell.Row) 
       ReDim Preserve rowsToDelete(UBound(rowsToDelete) + 1) 
      End If 
     Next word 
    Next cell 
    ReDim Preserve rowsToDelete(UBound(rowsToDelete) - 1) 
    RemoveDuplicate rowsToDelete 
    Dim v As Long 
    For v = UBound(rowsToDelete) To LBound(rowsToDelete) Step -1 
     Rows(rowsToDelete(v)).Delete 
    Next 
End Sub 


Sub RemoveDuplicate(ByRef StringArray() As String) 
    Dim lowBound$, UpBound&, A&, B&, cur&, tempArray() As String 
    If (Not StringArray) = True Then Exit Sub 
    lowBound = LBound(StringArray): UpBound = UBound(StringArray) 
    ReDim tempArray(lowBound To UpBound) 
    cur = lowBound: tempArray(cur) = StringArray(lowBound) 
    For A = lowBound + 1 To UpBound 
     For B = lowBound To cur 
      If LenB(tempArray(B)) = LenB(StringArray(A)) Then 
       If InStrB(1, StringArray(A), tempArray(B), vbBinaryCompare) = 1 Then Exit For 
      End If 
     Next B 
     If B > cur Then cur = B: tempArray(cur) = StringArray(A) 
    Next A 
    ReDim Preserve tempArray(lowBound To cur): StringArray = tempArray 
End Sub 

를 실행하는 전