如何用VBScript删除Excel文件1中不存在于文件2的列？

我来帮你完善这个VBA子程序，让它能动态匹配两个Excel文件的列，自动删除文件1里不在文件2中的列，而且完全适配文件2后续新增列的情况——毕竟你提到文件2的列始终是文件1的子集，这个逻辑我们可以放心利用。

下面是补全并优化后的完整代码：

Sub deleteIrrelevantColumns(strXl, strXlTemplate)
    Dim currentColumn As Integer
    Dim colTemplate As Integer
    Dim colXlCount As Integer, colTemplateCount As Integer
    Dim columnHeading() As String
    Dim templateHeaders As New Collection ' 用集合存储模板文件的列名，方便快速查找
    Dim i As Integer
    Dim wsSource As Worksheet, wsTemplate As Worksheet
    Dim objExcel As Object
    
    ' 初始化Excel应用
    Set objExcel = CreateObject("Excel.Application")
    objExcel.DisplayAlerts = False ' 关闭保存提示等弹窗
    objExcel.ScreenUpdating = False ' 关闭屏幕更新，提升运行速度
    
    ' 打开两个工作簿并获取第一个工作表
    Set wsSource = objExcel.Workbooks.Open(strXl).Sheets(1)
    Set wsTemplate = objExcel.Workbooks.Open(strXlTemplate).Sheets(1)
    
    ' 自动调整列宽（可选，提升可读性）
    wsSource.Cells.EntireColumn.AutoFit
    wsTemplate.Cells.EntireColumn.AutoFit
    
    ' 获取列数
    colXlCount = wsSource.UsedRange.Columns.Count
    colTemplateCount = wsTemplate.UsedRange.Columns.Count
    
    ' 把模板文件的所有列名存入集合（方便O(1)时间查找）
    On Error Resume Next ' 忽略重复列名的错误（如果有的话）
    For colTemplate = 1 To colTemplateCount
        templateHeaders.Add wsTemplate.Cells(1, colTemplate).Value, Key:=UCase(wsTemplate.Cells(1, colTemplate).Value)
    Next colTemplate
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 反向遍历源文件的列（从后往前删，避免删除列后列号错乱）
    For currentColumn = colXlCount To 1 Step -1
        ' 检查当前列名是否在模板集合中（不区分大小写）
        If templateHeaders.Count = 0 Or IsError(templateHeaders(UCase(wsSource.Cells(1, currentColumn).Value))) Then
            ' 如果不在，删除该列
            wsSource.Columns(currentColumn).Delete
        End If
    Next currentColumn
    
    ' 保存源文件并关闭所有工作簿
    wsSource.Parent.Save ' 保存修改后的源文件
    wsSource.Parent.Close
    wsTemplate.Parent.Close
    objExcel.Quit ' 退出Excel进程
    
    ' 释放对象
    Set wsSource = Nothing
    Set wsTemplate = Nothing
    Set objExcel = Nothing
End Sub

关键逻辑解释： #

• 用集合存储模板列名：集合的Key属性可以让我们快速判断某个列名是否存在，比遍历数组效率高很多，而且通过UCase统一转大写，避免了大小写不匹配的问题。
• 反向遍历删除列：如果从前往后删除列，删除一列后后面的列会前移，导致列号错乱，出现漏删或误删的情况。从后往前删就完全不会有这个问题。
• 错误处理：添加On Error Resume Next是为了避免模板文件出现重复列名时抛出错误，毕竟我们只需要知道列名是否存在，不需要关心重复情况。
• 资源清理：最后一定要关闭工作簿并退出Excel进程，释放对象，避免残留Excel后台进程占用系统资源。

这个代码完全满足你的需求：不管文件2新增多少列，只要它还是文件1的子集，程序都会自动匹配，只保留文件1中与文件2重合的列。

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