如何遍历Offset数据并复制到新工作表（附示例对比图）

方法一：用VBA批量处理（适合大量数据） #

如果数据量较大，手动操作效率低，VBA是最直接的解决方案。假设源表是分散的分组数据，需要提取每组数据到新表规整排列：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码，根据你的实际数据结构修改参数：

Sub 迁移偏移数据()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim srcRow As Integer, destRow As Integer
    Dim groupRows As Integer ' 每组数据的行数，按需修改
    
    ' 指定工作表，替换成你实际的表名
    Set srcSheet = ThisWorkbook.Sheets("数据源")
    Set destSheet = ThisWorkbook.Sheets("整理后")
    groupRows = 3 ' 假设每组占3行，根据你的数据调整
    
    destRow = 1 ' 新表的起始行
    
    ' 遍历源表，步长=每组行数+组之间的空行数（如果有空行）
    For srcRow = 2 To srcSheet.Cells(Rows.Count, 1).End(xlUp).Row Step groupRows + 1
        ' 复制当前组的A-C列数据，可修改列范围
        srcSheet.Range(srcSheet.Cells(srcRow, 1), srcSheet.Cells(srcRow + groupRows - 1, 3)).Copy
        ' 粘贴到新表，需要转置的话把Transpose改成True
        destSheet.Cells(destRow, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=False
        destRow = destRow + groupRows
    Next srcRow
    
    Application.CutCopyMode = False
    MsgBox "数据迁移完成"
End Sub

参数说明：

• groupRows：设置每组数据的行数，比如源表每组是3行就填3
• 工作表名称：把"数据源"和"整理后"改成你实际的表名
• 列范围：Cells(srcRow, 1)到Cells(..., 3)表示A到C列，按需修改列号
• 步长：如果组之间没有空行，把Step groupRows + 1改成Step groupRows
• 转置：如果源表是纵向分组，新表需要横向排列，将Transpose:=False改为True

方法二：用OFFSET公式手动填充（适合小量数据） #

如果数据量小，用Excel公式就能快速搞定：

1. 在新表的A1单元格输入公式：

=OFFSET(数据源!$A$2,(ROW(A1)-1)*4,0)

• 解释：$A$2是源表第一组数据的起始单元格；(ROW(A1)-1)*4是每组的间隔行数（比如每组3行+1行空行，共4行），按需修改这个数字

2. 横向拖动填充到需要的列，再下拉填充所有行
3. 选中所有公式单元格，按Ctrl+C复制，右键选择「选择性粘贴」→「值」，把公式转换成实际数据

注意事项 #

• 确保源表数据的分组规律一致，没有不规则的空行或缺失数据
• 如果分组是横向偏移（比如每行内的偏移字段），调整OFFSET的列参数即可

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