从excel中删除当前表格以外的所有表格中的第一列

我想删除除第一个或当前工作表之外的每个工作表中的第一列（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

testing是否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