如何使用VBA删除工作簿中每张工作表的第一列

我的工作簿有10多张工作表，我需要删除每张工作表的第一列。
我想知道是否有人知道一个短VBA宏可以为我执行此操作，而不是手动执行此操作？

---

谢谢

您需要循环浏览所有工作表：

Sub qwerty()
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Cells(1, 1).EntireColumn.Delete
    Next ws
End Sub

---

您需要循环浏览所有工作表：

Sub qwerty()
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Cells(1, 1).EntireColumn.Delete
    Next ws
End Sub

---

选择第一张工作表，按住Shift键并单击“最后一张工作表”选项卡-删除第一列。我知道您已经有了答案，但我通常只记录下我想做的宏。然后根据需要修改它（即，在所有工作表上循环）。有些事情看起来令人困惑或畏缩，直到你记录下宏并意识到它其实并不那么难。它还可以帮助你多教自己一点。@Constantine非常感谢！我也将尝试录制方法-可能会使更复杂的宏更容易！选择第一张工作表，按住Shift键并单击“最后一张工作表”选项卡-删除第一列。我知道您已经有了答案，但我通常只记录下我想做的宏。然后根据需要修改它（即，在所有工作表上循环）。有些事情看起来令人困惑或畏缩，直到你记录下宏并意识到它其实并不那么难。它还可以帮助你多教自己一点。@Constantine非常感谢！我也将尝试录制方法-可能会使更复杂的宏更容易！我想你想要ws.Range（“A:A”）太棒了！谢谢-这正是我需要的！我想你想要ws.Range（“A:A”）太棒了！谢谢-这正是我需要的！