Excel VBA将两工作表数据合并至主表空行的逻辑问题

核心问题 #

已能定位主表CMRDETAILS的最后空行，但未根据源数据的实际行数动态匹配粘贴范围，导致ImportData的数据无法正确追加到HistoricalData导入后的位置。

解决方案代码 #

以下代码实现先导入HistoricalData指定列数据，再导入ImportData指定列数据，全程动态计算数据行数以匹配粘贴范围：

Sub ImportDataToCMRDETAILS()
    Dim wsMain As Worksheet, wsHist As Worksheet, wsImport As Worksheet
    Dim lastRowMain As Long, lastRowHist As Long, lastRowImport As Long
    ' 定义要提取的列范围，根据实际需求修改（示例：A到C列、E列）
    Dim colsHist As String: colsHist = "A:C,E:E"
    Dim colsImport As String: colsImport = "A:C,F:F"
    
    ' 绑定工作表对象
    Set wsMain = ThisWorkbook.Worksheets("CMRDETAILS")
    Set wsHist = ThisWorkbook.Worksheets("HistoricalData")
    Set wsImport = ThisWorkbook.Worksheets("ImportData")
    
    ' ---------------------- 导入HistoricalData数据 ----------------------
    ' 获取HistoricalData指定列的最后数据行
    lastRowHist = wsHist.Range(colsHist).Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    ' 获取主表当前最后空行（假设A列为非空关键列）
    lastRowMain = wsMain.Cells(wsMain.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 复制指定列数据到主表
    wsHist.Range(colsHist & "1:" & colsHist & lastRowHist).Copy _
        Destination:=wsMain.Cells(lastRowMain, "A")
    
    ' ---------------------- 导入ImportData数据 ----------------------
    ' 重新计算主表最后空行（已导入HistoricalData数据，位置更新）
    lastRowMain = wsMain.Cells(wsMain.Rows.Count, "A").End(xlUp).Row + 1
    ' 获取ImportData指定列的最后数据行
    lastRowImport = wsImport.Range(colsImport).Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    
    ' 复制指定列数据到主表
    wsImport.Range(colsImport & "1:" & colsImport & lastRowImport).Copy _
        Destination:=wsMain.Cells(lastRowMain, "A")
    
    ' 清除剪贴板状态
    Application.CutCopyMode = False
    MsgBox "数据导入完成！"
End Sub

关键细节说明 #

• 动态计算数据行数：用Find方法定位源表指定列的最后数据行，避免因中间空行导致的行数计算错误
• 实时更新主表位置：每次导入完一个工作表的数据后，重新获取主表的最后空行，确保后续数据能精准追加
• 灵活指定列范围：通过字符串定义要提取的列，可直接修改适配不同的列需求
• 跳过表头（可选）：如果源表第一行是表头无需导入，将复制范围的起始行从1改为2即可，例如：

  wsHist.Range(colsHist & "2:" & colsHist & lastRowHist).Copy _
      Destination:=wsMain.Cells(lastRowMain, "A")
  

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