vba如何将从A表复制同样的数据到另外两张表里？

Question

一起3个表，本表做汇总，A表B表分别是数据表，从A表copy了些数据给了B表，想将这同样的数据，复制给本表的sheet2，不知道怎么操作，都是报错。
Sub 按钮4_click()
Dim a As String
Dim b As String
Dim rng As Range

a = ThisWorkbook.Sheets(1).Cells(1, 1).Value
b = ThisWorkbook.Sheets(1).Cells(2, 1).Value

Set xlwork1 = XLapp.Workbooks.Open(a)
Set xlwork2 = XLapp.Workbooks.Open(b)

Set rng = xlwork1.Sheets(2).Range("c8").CurrentRegion
rng.Offset(4, 2).Resize(rng.Rows.Count, 1).Copy xlwork2.Sheets("sheet1").Range("b4") '这条复制成功了

'以下这几句报错了
ThisWorkbook.Sheets("汇总").Activate
ThisWorkbook.Sheets("汇总").Range("b2").Select
ActiveSheet.Paste '粘贴
'以上这几句报错了

xlwork2.Save
xlwork1.Close
xlwork2.Close

MsgBox ("导入完成，请再检查数据。")
End Sub

Answer 1

一起3个表，本表做汇总，A表B表分别是数据表，从A表copy了些数据给了B表，想将这同样的数据，复制给本表的sheet2，不知道怎么操作，都是报错。
Sub 按钮4_click()
Dim a As String
Dim b As String
Dim rng As Range

a = ThisWorkbook.Sheets(1).Cells(1, 1).Value
b = ThisWorkbook.Sheets(1).Cells(2, 1).Value

Set xlwork1 = XLapp.Workbooks.Open(a) 
Set xlwork2 = XLapp.Workbooks.Open(b) 

Set rng = xlwork1.Sheets(2).Range("c8").CurrentRegion 
rng.Offset(4, 2).Resize(rng.Rows.Count, 1).Copy xlwork2.Sheets("sheet1").Range("b4") '这条复制成功了

'以下这几句报错了
'ThisWorkbook.Sheets("汇总").Activate
'ThisWorkbook.Sheets("汇总").Range("b2").Select
'ActiveSheet.Paste '粘贴
'以上这几句报错了 
rng.Offset(4, 2).Resize(rng.Rows.Count, 1).Copy ThisWorkbook.Sheets("汇总").Range("b2")

xlwork2.Save
xlwork1.Close
xlwork2.Close

MsgBox ("导入完成，请再检查数据。")
End Sub

追问

啥意思？只是复制了我的话？

追答

哎，你的17-19行我不用了，改成了21行，跟你自己的14行是一个道理！

追问

运行时错误'1004'类range的copy方法无效

追答

你代码所在的工作簿没 汇总 工作表？

追问

有汇总的这个表啊，我换sheet(2)也不行。我想是不是要激活表，但试了也不行，不知道啥原因

追答

Sheets(2)