VBA跨表复制

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2020/12/01
'

'
Dim aa As Integer
For aa = 0 To 19
Application.ScreenUpdating = False '避免屏幕刷新，不好看
    Windows("参会报告.xlsx").Activate
    Range("F" & 3 + aa).Select
    Selection.Copy
    Windows("工作簿3").Activate
    Range("B" & 17 + aa & ":K" & 17 + aa).Select
    ActiveSheet.Paste
    
   '这两行是合并代码 一般不要启用，比较卡
   ' Range("Q" & 17 + aa & ":S" & 17 + aa).Select
   ' Selection.Merge Across:=False
   
   Windows("参会报告.xlsx").Activate
    Range("C" & 3 + aa).Select
    Selection.Copy
    Windows("工作簿3").Activate
    Range("T" & 17 + aa & ":W" & 17 + aa).Select
  
    ActiveSheet.Paste
   
    Windows("参会报告.xlsx").Activate
    Range("J" & 3 + aa).Select
    Selection.Copy
    Windows("工作簿3").Activate
    Range("X" & 3 + aa).Select
    ActiveSheet.Paste
    
    Windows("参会报告.xlsx").Activate
    Range("E" & 3 + aa).Select
    Selection.Copy
    Windows("工作簿3").Activate
    Range("L" & 17 + aa & ":P" & 17 + aa).Select
    ActiveSheet.Paste
    
    Windows("参会报告.xlsx").Activate
    Range("H" & 3 + aa).Select
    Selection.Copy
    Windows("工作簿3").Activate
    Range("Y" & 17 + aa).Select
    ActiveSheet.Paste
    
Next
End Sub

'不同单元格的合并在excel界面用&,在vba界面用and；

'可以用Mid函数进行文本的提取