Excel에서 현재 시트를 제외한 모든 시트에서 주먹 열 제거

Question

첫 번째 또는 현재 시트를 제외한 각 시트에서 첫 번째 열 (A : A)을 삭제하려고합니다. 누군가 나를 도울 수 있습니까? 각 시트에서 첫 번째 열을 삭제하는 다음 코드를 사용했습니다.

Sub deletefirstcolum() 

    Dim ws As Worksheet 

    For Each ws In Sheets 

    ws.Cells(1, 1).EntireColumn.Delete 

    Next ws 

End Sub 

도와주세요. 첫 번째 또는 현재 시트를 제외하려면 어떻게합니까?

Answer 1

워크 시트 상에 If 조건을 넣어가 :

Sub deletefirstcolum() 

    Dim ws As Worksheet 

    For Each ws In Sheets 
     If Not ws Is ActiveSheet Then 
      ws.Cells(1, 1).EntireColumn.Delete 
     End If 

    Next ws 
End Sub 

Answer 2

활성 시트에 WS의 = 여부를 테스트 :

Sub deletefirstcolum() 
    Dim aWs As Worksheet 
    Set aWs = ActiveSheet 

    Dim ws As Worksheet 

    For Each ws In Sheets 
     If aWs.Name <> ws.Name Then 
      ws.Cells(1, 1).EntireColumn.Delete 
     End If 
    Next ws 

End Sub