如何使用Excel VBA跳过首个数据区域，读取第二个数据区域的所有行

核心定位逻辑 #

• 第一步：计算第一个数据子集的结束行
  你已掌握的方法可直接复用：first_set_end_row = Sheets("Admin Doc").Range("A2").End(xlDown).Row，得到第一个子集最后一行的行号
• 第二步：定位第二个数据子集的起始行
  按照两个子集间隔1个空行的规则，第二个子集的起始行计算公式为：second_set_start_row = first_set_end_row + 2
• 第三步：计算第二个数据子集的结束行
  复用向下定位逻辑获取第二个子集的最后一行：second_set_end_row = Sheets("Admin Doc").Range("A" & second_start_row).End(xlDown).Row
• 第四步：读取第二个子集的全部内容
  需要连带固定表头一起读取就从起始行直接取数，只需要业务数据的话，在起始行基础上加上固定表头行数跳过表头即可。

完整VBA实现示例 #

以下代码可直接实现从Admin Doc读取第二个数据集并写入Calc Doc：

Sub FetchSecondDataSetToCalcDoc()
    Dim admin_sheet As Worksheet
    Dim calc_sheet As Worksheet
    Dim first_end_row As Long
    Dim second_start_row As Long
    Dim second_end_row As Long
    Dim max_col As Long
    Dim data_range As Range
    
    ' 绑定两个工作簿的对应工作表，按需修改实际文件名和工作表名
    Set admin_sheet = Workbooks("Admin Doc.xlsx").Sheets("Admin数据页")
    Set calc_sheet = Workbooks("Calc Doc.xlsx").Sheets("计算页")
    
    ' 定位第一个数据集结束行
    first_end_row = admin_sheet.Range("A2").End(xlDown).Row
    ' 计算第二个数据集起始行
    second_start_row = first_end_row + 2
    ' 定位第二个数据集结束行
    second_end_row = admin_sheet.Range("A" & second_start_row).End(xlDown).Row
    ' 动态获取第二个数据集最大列数，适配列数变动场景
    max_col = admin_sheet.Cells(second_start_row, Columns.Count).End(xlToLeft).Column
    
    ' 读取第二个数据集全部区域
    Set data_range = admin_sheet.Range(admin_sheet.Cells(second_start_row, 1), admin_sheet.Cells(second_end_row, max_col))
    
    ' 写入Calc Doc，从A1单元格开始填充，可按需调整写入位置
    data_range.Copy calc_sheet.Range("A1")
End Sub

注意事项 #

• 如果第二个数据集中存在整行空值导致End(xlDown)定位不准的极端场景，可以改用遍历UsedRange判断连续空行的方式适配
• 如果要保留Admin Doc的单元格格式，可在Copy方法后搭配PasteSpecial xlPasteAll实现全量复制

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