AA 시트의 값이 0 인 경우 모든 워크 시트의 모든 행을 삭제하는 Excel 매크로

Question

197 개의 시트가 포함 된 통합 문서가 있습니다. 열 AA의 값이 0이면 각 시트의 모든 행을 삭제해야합니다. 누구든지이 작업을 수행하는 방법을 알고 있습니까?

Answer 1

행의 컬럼 AA가 0 인 경우에만 각 행을 삭제하려면 다음이 적합합니다. AA의 셀 값이 여러 미묘 여기에 있습니다 0 인 경우

Sub delete0rows() 
    Dim Worksheet As Excel.Worksheet 
    Dim lastRow As Long 
    Dim i As Integer 
    For Each Worksheet In Application.ThisWorkbook.Worksheets 
     lastRow = Worksheet.Cells(Rows.Count, 1).End(xlUp).Row 
     i = 1 
     Do While i <= lastRow 
      If Worksheet.Range("AA" & i).Value = 0 Then 
       Worksheet.Rows(i).Delete 
       i = i - 1 
       lastRow = lastRow - 1 
      End If 
      i = i + 1 
     Loop 
    Next 
End Sub 

참고이은 행을 삭제합니다 ... 엑셀은 다른 것들 사이 0 셀의 값이 '경우에도 0 = 0가 표시됩니다 , 위의 코드를 사용하면 해당 행이 삭제되지 않습니다.