需要程式碼嗎？我會選中B1:D7，右鍵複製，然後選中B9:D701（可以在名稱框裡輸入B9:D701，回車就選中了），然後回車貼上。

需要程式碼的話，我給你寫。

Sub test()

Dim i As Integer

For i = 1 To 10

Range("B1:D7").Copy Range("B" & i * 7 + 2)

Next i

End Sub

你好，我的意思是程式碼執行一次只複製貼上一組資料。再執行一次，資料緊挨著上次複製貼上的資料的下方。比如我第一次執行程式碼，B1:D7的區域資料複製貼上到B9:D15的區域。再執行一次程式碼複製貼上到B16:D22的區域。B1:D7的區域資料每次都不同。

你在單元格B8裡輸入一個空格（反正有內容就行）。程式碼如下：

Sub test()

Range("B1:D7").Copy Range("B9999").end(xlup).offset(1,0)

End Sub

這就是我想要的結果。如果我連續操作了多次，B列放不下了，另外放到一列，該如何編寫程式碼。比如到了B23:D29，我想接著從F1:H7往下排，該如何編寫程式碼。

Sub test()

Dim i, j As Integer

j = Range("IV1").End(xlToLeft).Column - 2

i = Cells(999, j).End(xlUp).Row

Do

If i > 23 Then

i = 0

j = j + 4

End If

Loop Until Cells(i + 1, j) = ""

Range("B1:D7").Copy Cells(i + 1, j)

End Sub

粗體的23就是你比如的B23。