Excel VBA 多数据源导入：Sheet2表头定义及分阶段复制规则适配

预先在Sheet2（输出表）一次性手动录入和源表完全一致的列标题，后续所有采集动作仅追加业务数据行，是适配你当前场景的最优方案。
对比“首次复制表头、后续跳过表头”的动态判断逻辑，这种固定表头的做法没有冗余判断分支，容错性更强：

• 所有源文件的列结构完全统一，手动录一次表头即可长期复用
• 完全规避了“判断当前是否为首次操作”的逻辑漏洞——比如中途误删输出表A1的内容、手动在输出表插入备注行，都不会出现表头重复复制的问题
• 追加逻辑更简单固定，不需要每次复制前判断源表当前要不要带表头

1. 第一次使用前，提前把所有列标题录入到Sheet2的第1行
2. 每次在源表（Sheet1）完成2行业务数据录入后，触发采集宏
3. 代码自动定位Sheet2中A列的最后非空行，把源表需要采集的2行业务数据，粘贴到最后一行的下一个可用位置
4. 可选：粘贴完成后自动清空源表的业务录入区域，省去手动清空的步骤

你原代码存在两个可优化点：一是Union拼接的区域只覆盖了每列的1-2行，对应你的源表结构会漏掉第3行业务数据；二是原来的offset判断逻辑在遇到空行时容易出现定位偏移。改造后的代码如下：

Option Explicit

Sub 触发数据采集()
    Dim inputSheet As Worksheet, outputSheet As Worksheet
    ' 绑定固定工作表，避免写错表名的问题
    Set inputSheet = ThisWorkbook.Worksheets("Sheet1")
    Set outputSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 前置校验：确认输出表已经录好表头，避免错跑代码
    If outputSheet.Range("A1").Value = "" Then
        MsgBox "请先在Sheet2第1行录入好所有列的标题后再运行采集", vbInformation
        Exit Sub
    End If
    
    CopySpecifiedRows inputSheet, outputSheet
End Sub

Private Sub CopySpecifiedRows(ByVal srcSheet As Worksheet, ByVal dstSheet As Worksheet)
    Dim copyRange As Range, lastOutputRow As Long
    
    ' 按你原来选定的采集列（A、B、E、H、I），仅取每列的第2、3行纯业务数据，不带表头
    Set copyRange = Union( _
        srcSheet.Range("A2:A3"), _
        srcSheet.Range("B2:B3"), _
        srcSheet.Range("E2:E3"), _
        srcSheet.Range("H2:H3"), _
        srcSheet.Range("I2:I3") _
    )
    
    ' 定位输出表A列的最后非空行，作为追加位置的基准
    lastOutputRow = dstSheet.Cells(dstSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 仅粘贴值，避免源表格式打乱输出表结构
    copyRange.Copy
    dstSheet.Cells(lastOutputRow + 1, "A").PasteSpecial xlPasteValues
    ' 如需保留源表单元格格式，可再加一行：
    ' dstSheet.Cells(lastOutputRow + 1, "A").PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
    
    ' 可选：粘贴完成后自动清空源表的录入区域
    srcSheet.Range("A2:T3").ClearContents
End Sub

• 代码完全不需要区分首次/非首次操作，不管你是录入第1个文件还是第10个文件的数据，直接点采集按钮即可，不会出现重复复制表头的问题
• 如果后续需要调整采集的列范围，只需要修改Union函数里的列名和行范围即可
• 原来的动态判断表头方案，需要靠IsEmpty判断A1单元格是否为空来区分是不是第一次操作，一旦中途手动修改过输出表内容，很容易判断失效，出现重复表头的问题，固定表头的方案可以完全规避这类问题

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