如何修改Excel VBA代码以在所有工作表保留指定列并删除其余列

你只需要给现有代码套一个遍历工作簿所有工作表的循环就可以实现需求啦。核心思路是：不再只针对当前激活的工作表操作，而是逐个处理工作簿里的每一张表。

这里是修改后的完整代码：

Sub DeleteSelectedColumnsAllSheets()
    Dim ws As Worksheet
    Dim currentColumn As Integer
    Dim columnHeading As String
    
    ' 遍历工作簿中的每一个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 从最后一列往前遍历（避免删除列导致的索引错乱）
        For currentColumn = ws.UsedRange.Columns.Count To 1 Step -1
            columnHeading = ws.UsedRange.Cells(1, currentColumn).Value
            ' 判断是否保留当前列
            Select Case columnHeading
                Case "Date", "Name", "Amount Owing", "Balance"
                    ' 保留列，什么都不做
                Case Else
                    ' 删除不需要的列
                    ws.Columns(currentColumn).Delete
            End Select
        Next currentColumn
    Next ws
End Sub

关键改动说明： #

• 新增了Dim ws As Worksheet定义工作表对象，用For Each ws In ThisWorkbook.Worksheets循环遍历所有工作表
• 把原来代码里的ActiveSheet全部替换成了ws，这样每次循环都会对当前的ws（也就是每一张工作表）执行删除列的操作
• 保留了从后往前遍历列的逻辑——如果从前往后删列，会导致后续列的索引发生偏移，漏掉部分列的判断

⚠️ 小提醒：运行代码前建议先备份你的工作簿，避免因意外情况导致数据丢失哦。

内容的提问来源于stack exchange，提问作者user9831829