4个工作表各有AB两列数据，每个各取一列互相组合，见下图。 有10个工作表，请问怎样编写VBA代码来实现？

目的就是把10个相同工作表（里面都有AB两列数据）的数据每次按顺序各取一列数据组合成一列，然后再按顺序粘贴到另外一个工作表里面下面是录制的部分宏Sub Macro1()Columns("A:A").SelectSelection.CopySheets("Sheet5").SelectColumns("A:A").SelectActiveSheet.PasteSheets("Sheet2").SelectColumns("A:A").SelectApplication.CutCopyMode = FalseSelection.CopySheets("Sheet5").SelectColumns("B:B").Select中间部分省略Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseEnd Sub