Excel VBA合并文件时仅保留首个文件表头的技术需求

要解决合并时重复复制表头的问题，只需在原有代码中添加判断标志，区分处理第一个文件和后续文件的复制范围，同时优化数据复制效率，具体修改如下：

关键改动说明 #

• 新增布尔变量isFirstFile，标记是否为第一个待合并文件
• 第一个文件：复制包含表头的全部已使用区域，直接粘贴到主表A1起始位置
• 后续文件：仅复制从第2行开始的数据区域，粘贴到主表已有数据的下一行
• 替换固定范围Range("A1:Z10000")为UsedRange，避免复制大量空行空列，提升运行效率

修改后的完整代码 #

Sub MergeFiles()
    'Declare variables
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim isFirstFile As Boolean '新增：标记是否为第一个文件
    
    'Set the folder path where the files are located
    folderPath = "C:\ExcelFiles\"
    
    'Create a new workbook to store the combined data
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    isFirstFile = True '初始化标志
    
    'Loop through each file in the folder
    fileName = Dir(folderPath & "*.xlsx")
    Do While fileName <> ""
        'Open the file
        Workbooks.Open (folderPath & fileName)
        
        With Workbooks(fileName).Sheets(1)
            If isFirstFile Then
                '第一个文件：复制包含表头的全部已使用区域
                .UsedRange.Copy
                '粘贴到主表A1起始位置
                ws.Range("A1").PasteSpecial xlPasteValues
                isFirstFile = False '重置标志，后续不再复制表头
            Else
                '后续文件：仅复制第2行到最后一行的数据区域
                .Range("A2:" & .UsedRange.SpecialCells(xlCellTypeLastCell).Address).Copy
                '粘贴到主表已有数据的下一行
                ws.Range("A" & ws.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
        End With
        
        'Close the file
        Workbooks(fileName).Close
        'Get the next file
        fileName = Dir()
    Loop
    
    'Save the master file
    wb.SaveAs "C:\ExcelFiles\MasterFile.xlsx"
End Sub

额外优化提示 #

• 如果Excel文件存在隐藏行/列且需要保留，可保留原固定范围逻辑，仅将后续文件的复制起始行改为A2
• 若需保留单元格格式，可将xlPasteValues替换为xlPasteAll，按需调整粘贴方式

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