多CSV工作表数据合并至主工作簿的VBA代码问题咨询

嘿，我帮你把VBA代码调整好了，完美解决你提到的三个问题——自动关闭打开的文件、复制全部内容、每次粘贴到主表的空白行。直接上完整代码，再给你拆解关键部分：

Sub MergeCSVsToMaster()
    Dim ScanWBNames As Variant
    Dim ScanWB As Workbook
    Dim MasterWB As Workbook
    Dim LastRow As Long
    
    ' 设定主工作簿（这里默认当前运行代码的工作簿就是主工作簿，可根据实际修改）
    Set MasterWB = ThisWorkbook
    
    ' 允许一次性选择多个CSV文件
    ScanWBNames = Application.GetOpenFilename _
        ("CSV (*.csv),*.csv", MultiSelect:=True, Title:="Select CSV Files to Merge")
    
    ' 如果用户取消选择，直接退出程序
    If TypeName(ScanWBNames) = "Boolean" Then Exit Sub
    
    ' 遍历每一个选中的CSV文件
    For Each ScanWBName In ScanWBNames
        ' 打开当前CSV文件
        Set ScanWB = Workbooks.Open(ScanWBName)
        
        ' 复制工作表中所有有数据的区域（替代原代码只看A列的逻辑）
        ScanWB.ActiveSheet.UsedRange.Copy
        
        ' 找到主工作簿目标工作表的第一个空白行（A列最后一行的下一行）
        LastRow = MasterWB.Sheets("主工作表名称").Cells(MasterWB.Sheets("主工作表名称").Rows.Count, "A").End(xlUp).Row + 1
        
        ' 粘贴数据到主表的空白行
        MasterWB.Sheets("主工作表名称").Cells(LastRow, "A").PasteSpecial Paste:=xlPasteAll
        
        ' 关闭当前CSV文件，不保存任何修改（如果需要保存原文件修改，可改成Close True）
        ScanWB.Close SaveChanges:=False
        
        ' 清除剪贴板释放内存
        Application.CutCopyMode = False
    Next ScanWBName
    
    MsgBox "所有CSV文件已合并完成！", vbInformation
End Sub

关键调整说明： #

• 支持多选文件：添加了MultiSelect:=True参数，用户可以一次性选中所有需要合并的CSV，不用逐个打开。
• 复制全部内容：用UsedRange代替原代码只判断A列的逻辑，能选中工作表里所有包含数据的单元格，不管有多少列。
• 自动定位空白行：通过MasterWB.Sheets("主工作表名称").Cells(Rows.Count, "A").End(xlUp).Row + 1精准找到主表的下一个空白行，确保每次粘贴都接在现有数据后面，不会覆盖。
• 自动关闭文件：处理完每个CSV后，用ScanWB.Close SaveChanges:=False自动关闭，避免手动操作，也不会修改原CSV文件。

⚠️ 注意：记得把代码中的"主工作表名称"改成你实际使用的主工作表名称（比如"Sheet1"或者自定义的表名）。

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