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

【问题标题】：How to delete the first column in every sheet in a workbook using VBA如何使用 VBA 删除工作簿中每个工作表中的第一列
【发布时间】：2015-07-15 15:49:55
【问题描述】：

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

【问题讨论】：

选择第一个工作表，Shift+单击最后一个工作表选项卡 - 删除第一列。
我知道你已经有了答案，但我通常做的只是记录一个我想做的宏。然后根据我需要做的修改它（即循环遍历所有工作表）。在您录制宏并意识到它实际上并不难之前，有些事情似乎令人困惑或令人生畏。它还可以帮助您自学更多。
@Constuntine 非常感谢！我也会尝试录制方法 - 可能会使更复杂的宏更容易！

标签： vba excel

【解决方案1】：

您需要遍历所有工作表：

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

【讨论】：