Excel VBA插入復制的單元格並向下移動單元格ERROR

Question

在這里完成業余。 數小時來，我一直對此感到困惑，在其他任何線程中，我找不到任何可以幫助我的東西。 我的機智很抱歉，是否有人在其他地方問過這個問題。

我正在嘗試創建一個荒謬的簡單宏來執行以下操作：

Go to Sheet2,
Select C6:C10
Copy
Go to Sheet3
Insert copied cells in B2 and shift the other cells down.

我只是通過記錄宏來做到這一點，但是每次這樣做，都會遇到不同的錯誤。 我目前遇到的錯誤是“ Insert Method of Range Class Failed”，但有時錯誤會在“ Selection.Copy”中彈出。 這是我的代碼：

Sub InsertCellsShitDown()
'
' InsertCellsShitDown Macro
'

'
Sheets("Booking Sheet").Select
Range("C6:C10").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
End Sub

任何幫助將不勝感激。

Answer 1

Sub InsertCellsShiftDown()
'
' InsertCellsShitDown Macro
Dim bookingWS As Worksheet, mainWS As Worksheet
Dim copyRng As Range

Set bookingWS = Sheets("Booking Sheet")
Set mainWS = Sheets("Sheet1")
Set copyRng = bookingWS.Range("C6:C10")

mainWS.Range("B2:B" & copyRng.Rows.Count + 1).Insert Shift:=xlDown
copyRng.Copy mainWS.Range("B2")
End Sub

這是如何運作的？ 我假設您想插入5行，因此從B2:B7 ，然后放入數據。