1. Sub 复制区域()
    2. '
    3. ' 复制区域 Macro
    4. ' 宏由 liujian 录制，时间: 2020/11/12
    5. '
    7. '
    10. Sheets("data").Activate
    11. Range("A722118:M761718").Select
    12. Selection.Copy
    13. Sheets("3142").Activate
    14. Range("A2").Select
    15. ActiveSheet.Paste
    17. Sheets("data").Activate
    18. Range("A761718:M804018").Select
    19. Selection.Copy
    20. Sheets("3143").Activate
    21. Range("A2").Select
    22. ActiveSheet.Paste
    24. Sheets("data").Activate
    25. Range("A804918:M811622").Select
    26. Selection.Copy
    27. Sheets("3144").Activate
    28. Range("A2").Select
    29. ActiveSheet.Paste
    31. End Sub

    是个笨方法
    录制宏，然后修改
    多个区域就多次运行
    区域查找：给定行坐标，列用INDIRECT函数组合
    textjoin组合行

    然后notepad++ 一行替换为多行

    @@Sheets(“data”).Activate@@Range(“A2:M20”).Select@@Selection.Copy@@Sheets(“3126”).Activate@@Range(“A2”).Select@@ActiveSheet.Paste