선택영역에서 특정문자가 포함된 행만 골라 한번에 삭제

※ChatGPT 질의응답

Sub DeleteRows_With_SpecialChar()

   '★★특정문자가 포함된 행만 골라 한번에 삭제★★

    Dim rng As Range
    Dim cell As Range
    Dim delRange As Range
    
   '선택 영역 기준
    Set rng = Selection
    
    Application.ScreenUpdating = False
    
    For Each cell In rng
        
        If InStr(cell.Value, "♨") > 0 Then
            
            If delRange Is Nothing Then
                Set delRange = cell.EntireRow
            Else
                Set delRange = Union(delRange, cell.EntireRow)
            End If
            
        End If
        
    Next cell
    
   '한번에 삭제
    If Not delRange Is Nothing Then
        delRange.Delete
    End If
    
    Application.ScreenUpdating = True

End Sub