軟體: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 想練習大量資料複製