vba - 在 vba 中向下 move 行范围

Question

我正在尝试选择电子表格的前 7 行(确切数字可能会有所不同)并将其向下 move 32 行(向下 move 的行数也可能会有所不同)。有人可以帮我写代码吗？我试过了:

Worksheets("Report").Cells(x1, 5).EntireRow.Offset(32, 0).Select

我也试过

for i = 1 to 7
set x1 = worksheets("Report").Cells(i, 5)
Rows(x1).EntireRow.Offset(32, 0).Select

也行不通。先谢谢您的帮助!

Answer 1

这可以满足您的要求，如果 32 之后有任何行，则将它们向下 move :

Sub MoveRowsDown()
Dim NumRows As Long
Dim TargetRow As Long
Dim ws As Excel.Worksheet

NumRows = 7 'change as necessary
TargetRow = 33 'change as necessary
Set ws = ActiveSheet ' change as necessary

ws.Range("A1").Resize(NumRows).EntireRow.Cut
ws.Range("A" & TargetRow + NumRows).EntireRow.Insert shift:=xlDown
End Sub

编辑:这是一个只是剪切和粘贴的版本，没有花哨的插入:

Sub MoveRowsDown()
Dim NumRows As Long
Dim TargetRow As Long
Dim ws As Excel.Worksheet

NumRows = 7 'change as necessary
TargetRow = 33 'change as necessary
Set ws = ActiveSheet ' change as necessary

ws.Range("A1").Resize(NumRows).EntireRow.Cut Destination:=ws.Range("A" & TargetRow)
End Sub