Excelの現在のシートを除くすべてのシートから第1列を削除

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