Question

在这里完成业余爱好者。我已经困扰了好几个小时了，在任何其他帖子里我找不到任何可以帮助我的东西。在我的机智结束时，如果有人在其他地方被问过，那就很抱歉。

我试图创建一个可笑的简单宏来执行以下操作：

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

我只是通过录制宏来做到这一点，但每次我这样做，我都会遇到不同的错误。我目前所遇到的错误是＆＃39;插入范围类失败的方法＆＃39;，但有时会在＆＃39; Selection.Copy＆＃39;中弹出错误。这是我的代码：

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开始，然后输入数据。

Excel VBA插入复制的单元格并将单元格向下移动ERROR

1 个答案: