如何编写VBA代码将所有工作表复制到一张excel中

表1 名称金额 abc 25.00 bba 45.00

Sub sbCopyRangeToAnotherSheet()
    Sheets("sheet1").Range("A:B").Copy Destination:=Sheets("Sheet4").Range("a1")
End Sub

如果我有多张工作表，我应该如何将目标文件而不是（工作表1）写入工作表4？

子sbcopyrange to othersheet（）
Sub sbCopyRangeToAnotherSheet()
   dim col as integer
   col = 1
   For Each wks In Worksheets
      if (wks.Name <> "Sheet4") then
          wks.Range("A:B").Copy Destination:=Sheets("Sheet4").Cells(1, col)
          col = col + 2
      end if
   next wks
End Sub

作为整数的dim col
col=1
对于工作表中的每项工作
如果（wks.Name“Sheet4”），则
工作范围（“A:B”）。复印目的地：=纸张（“纸张4”）。单元格（1，列）
col=col+2
如果结束
接下来的工作
端接头

thanx感谢您的回复，但它只复制了第3页我想复制第1页、第2页、第3页，（所有数据都复制到）第4页我希望您能帮我谢谢我的错，这些页总是复制在同一个目的地，解释为什么您只得到最后一页。看看我的编辑，现在应该可以了；）错误消息对象不支持此属性或方法“单元格”缺少“s”：PHmm。。。反转列&“1”，已测试，无错误。。。现在应该可以工作了：）