Excel 有关宏问题？？？

Excel一个工作簿中有16个表格，我要将10个表格中B列到D列中的内容自动移到另一个工作簿中，内容要在同一个表格，且内容是一个表接一表的移进去，内容全部要在B列到D列。

插入一新工作表，移到最前面。将你讲的10个工作表移到它的后面。
同时按Alt和F11，进入VB界面，点菜单上的插入，模块，将以下代码粘贴到右边窗口：
Sub Test()
Dim i As Integer
For i = 2 To 11
Sheets(i).Select
Range("B1:D999").Copy
Sheets(1).Select
Range("B9999").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next i
End Sub

按F5运行此宏。完成。

参考这个

Columns("ExcelOld:B").Select Selection.Cut Columns("ExcelNew:A").Select Selection.Insert Shift:=xlToRight