如何批量复制指定间隔单元格区域并粘贴至P2起始位置？

一、手动批量操作（适合数据块数量不多的情况） #

1. 按住Ctrl键，依次选中所有需要复制的单元格区域：先选B2:M9，再选B13:M20、B24:M31……直到所有目标区域选完
2. 按下Ctrl+C复制选中内容
3. 点击单元格P2，按下Ctrl+V粘贴，所有选中的数据块会自动按从上到下的顺序依次粘贴在P2起始的位置，块与块之间无空白

二、VBA宏自动处理（适合数据块数量多、需要重复操作的情况） #

用宏可以自动循环识别并复制所有数据块，步骤如下：

1. 打开Excel文件，点击顶部菜单栏的「开发工具」（如果没显示，可通过「文件-选项-自定义功能区」勾选「开发工具」调出）
2. 点击「开发工具」中的「Visual Basic」，在弹出的编辑器里右键点击当前工作簿，选择「插入-模块」
3. 在模块中粘贴以下代码：

Sub CopyDataBlocks()
    Dim sourceStartRow As Integer
    Dim targetStartRow As Integer
    sourceStartRow = 2 '第一个数据块的起始行
    targetStartRow = 2 '粘贴的起始行
    
    '循环处理所有数据块，直到B列对应行无数据时停止
    Do While Cells(sourceStartRow, "B").Value <> ""
        '复制当前数据块（B到M列，共8行）
        Range(Cells(sourceStartRow, "B"), Cells(sourceStartRow + 7, "M")).Copy
        '粘贴到P列的目标位置
        Range("P" & targetStartRow).PasteSpecial Paste:=xlPasteAll
        '跳转到下一个数据块（间隔3行空白，所以起始行+11：8行数据+3行空白）
        sourceStartRow = sourceStartRow + 11
        '更新下一次粘贴的起始行（增加8行，对应复制的行数）
        targetStartRow = targetStartRow + 8
    Loop
    Application.CutCopyMode = False '取消复制状态
End Sub

4. 点击编辑器工具栏的「运行」按钮（绿色三角），宏会自动完成所有复制粘贴操作

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