如何用VBA将CSV的10列替换Excel Sheet1的120列并删除冗余列

修改后的完整代码 #

Sub UpdateSource()
    Dim wb As Workbook
    Dim src As Workbook
    Dim targetSheet As Worksheet
    Dim srcColCount As Long
    
    ' 关闭屏幕刷新，提升运行效率
    Application.ScreenUpdating = False
    
    Set wb = ActiveWorkbook
    Set src = Workbooks.Open("csv file") ' 替换为你的CSV文件实际路径
    Set targetSheet = wb.Sheets(1)
    
    ' 获取CSV文件的有效列数（此处应为10列）
    srcColCount = src.Sheets(1).UsedRange.Columns.Count
    
    ' 将CSV数据覆盖到Sheet1起始位置
    src.Sheets(1).UsedRange.EntireColumn.Copy
    targetSheet.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    
    ' 删除Sheet1中多余的列：从第srcColCount+1列到最后一列
    If targetSheet.Columns.Count > srcColCount Then
        targetSheet.Columns(srcColCount + 1 & ":" & targetSheet.Columns.Count).Delete
    End If
    
    ' 强制计算Sheet2，确保公式基于新数据生效
    wb.Sheets(2).Calculate
    
    ' 收尾操作
    src.Close SaveChanges:=False
    wb.Save
    Application.ScreenUpdating = True
End Sub

关键说明 #

• 冗余列删除逻辑：通过获取CSV的列数定位删除范围，精准移除Sheet1中不需要的110列，只保留支撑Sheet2计算的10列。
• Sheet2公式兼容性：只要CSV导出的10列和原Sheet1中对应列的顺序、表头完全匹配，删除多余列后Excel会自动调整Sheet2的单元格引用，不会导致公式失效。
• 效率优化：关闭屏幕刷新避免运行时的界面卡顿，完成操作后再恢复。
• 路径替换：务必把代码中的"csv file"替换为你的CSV文件实际路径，例如"D:\FinanceData\required_cols.csv"。

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