1）I具有片狀名爲C.A.
我想從B$3複製範圍開始到最後一個小區（其是H列）定義動態範圍
2）然後將其粘貼到稱爲2017另一片的
向2-細胞
（列B包含數據的最後一個單元）下面我做第二個，但是，不能限定的第一個。
Dim lastRow As String
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 2
Range("B" & lastRow).Select
Selection.PasteSpecial
End Sub
試試這個：
Dim ws_ca As Worksheet
Dim ws_17 As Worksheet
Dim nr_2017 As Long
Dim nr_ca As Long
Set ws_ca = ThisWorkbook.Worksheets("C.A.")
Set ws_17 = ThisWorkbook.Worksheets("2017")
nr_ca = ws_ca.Cells(Rows.Count, 8).End(xlUp).Row
nr_2017 = ws_17.Cells(Rows.Count, 2).End(xlUp).Row
ws_17.Range("B" & nr_2017 + 3 & ":H" & nr_2017 + nr_ca).Value = ws_ca.Range("B3:H" & nr_ca).Value
你在掙扎？你沒有問一個問題。這不是免費的代碼寫入服務。如果您發佈了迄今爲止的內容，我們很樂意爲您提供幫助。 – teylyn
最後的編輯是否可以考慮我已經付出了努力？我只是沒有編寫代碼，不會混淆別人，而且很簡單。 –
您是否嘗試手動執行所需操作時錄製宏？它會給你很多代碼，你可以編輯，以擺脫多餘的線，並希望最終有用的東西。 –