VBA Excel 매크로: 셀의 데이터를 기반으로 시트 유지 및 삭제

Question

이것은 매우 간단한 질문일 수 있지만 알아낼 수는 없습니다. 13개의 스프레드시트를 생성하는 매크로를 실행합니다. 13개 스프레드 중 일부는 A2 열에 아무것도 포함하지 않습니다. A2에 아무것도 없는 모든 스프레드를 삭제하지만 A2에 데이터가 있는 스프레드를 유지하는 매크로를 VBA에서 생성하고 싶습니다. 나는 다음을 사용해 보았습니다.

Sub Delete()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
    Application.DisplayAlerts = False
      If LenB(ActiveSheet.Range("A2")) = 0 Then ActiveSheet.Delete
    Application.DisplayAlerts = True
  Next ws
End Sub

A2에 아무것도 없으면 활성 시트가 ​​삭제되므로 약간의 진전이 있지만 자동으로 다음 시트로 이동하지는 않습니다.

Answer 1

코드가 일관성이 없으므로 어디 ws에서나 ActiveSheet.