软件:excel
版本:2010
先付上程式码
Sub Macro1()
Dim allinOne As Worksheet
Set allinOne = ActiveSheet
patch$ = "C:XXXXXXX"
For i = 1 To 5
With Workbooks.Open(patch$ & i & ".log")
.Sheets(1).Columns("B:F").Copy allinOne.Columns(i)
.Close
End With
Next i
End Sub
这是在网络上抓的范本 我目前在练习大量资料合并在一个工作表上，
但是我想自行加入每段资料贴在工作表上在空一格后再继续黏贴
ABCDEF
________
| A B C
| A B C
| A B C
类似像上面这样，不知是否该修正哪个地方?

是希望栏和栏间在多空一栏吗？

对 目前这个贴起来会年再一起 希望能空格方便看

另外，allinone有宣告，i却又无宣告patch$ = "C:XXXXXXX"，这里将patch指定为$字串，下方又为何Workbooks.Open(patch$ & i & ".log") 这里又重复指定呢

那边不是给他固定路径让他开启档案?

是让他开启档案没错离题了；[F:F,E:E,D:D,C:C,B:B].Insert xlToRight

谢谢... 今天才刚开始学VBA 想练习大量资料复制