定義動態範圍

-1

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

來源

2017-03-08 efe can tercan

你在掙扎？你沒有問一個問題。這不是免費的代碼寫入服務。如果您發佈了迄今爲止的內容，我們很樂意爲您提供幫助。 – teylyn

最後的編輯是否可以考慮我已經付出了努力？我只是沒有編寫代碼，不會混淆別人，而且很簡單。 –

您是否嘗試手動執行所需操作時錄製宏？它會給你很多代碼，你可以編輯，以擺脫多餘的線，並希望最終有用的東西。 –

試試這個：

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

來源

2017-03-08 09:00:33 BOB

定義動態範圍

回答

相關問題