매크로가있는 행에 포함 된 값을 기반으로 전체 행을 삭제 하시겠습니까?

Question

나는 전체 텍스트와 숫자 값을 포함하는 스프레드 시트를 가지고 있습니다. 시트를 매크로로 검색하고 "Total"이라는 단어가 포함 된 행을 선택하고 전체 행을 삭제하고 싶습니다. 저는 수 시간 동안 검색을 해왔고이 작업을 수행 할 수있는 코드를 찾지 못했습니다. 나는 VBA에 약간의 경험을했지만 연습과 인내심에서 벗어났습니다. 이 단어는 대소 문자를 구분하지 않으며 "12345 Jane Doe"와 같이 텍스트 문자열에 포함될 수 있습니다.

Answer 1

전체 범위를 선택하면 다음 매크로는 대소 문자에 관계없이 "합계"가 포함 된 셀이있는 모든 행을 삭제해야합니다. + F11

삽입을 클릭> 모듈

복사

1. Alt 키를 새 모듈에 위의 매크로를 붙여 넣습니다

   Sub Test() 
   Dim cell As Range 
   
   For Each cell In Selection 
       If InStr(1, cell, "total", vbTextCompare) > 0 Then 
        cell.EntireRow.Delete 
       End If 
   Next 
   End Sub 
   

   은 Excel에서 다음을 수행 삽입합니다.

   Sub testing() 
   Dim pattern As String 
   pattern = "Total" 
   RowCount = ActiveSheet.UsedRange.Rows.Count 
   Dim i As Integer 
   
   For i = 1 To RowCount 
       Dim j As Integer 
       For j = 1 To 1 
        If Cells(i, j) = pattern Then 
         Cells(i, j).EntireRow.Delete 
        End If 
       Next j 
   Next i 
   End Sub 
   

   이 코드의 더 많은 라인을 가질 수있다, 그러나 이것은 당신의 개념을 설명하는 것이 도움이 될 것입니다 :

Answer 2

대신이 시도 할 수 있습니다. > 삽입 -> 모듈이 코드를 붙여 넣습니다 -

1. 하려면 Alt + F11
2. 마우스 오른쪽 단추로 Sheet1의
3. 을 :
   는 엑셀에서 다음을 수행 삽입합니다.