Question

我想创建一个宏，我有一张包含数百行的工作表，从A列到AD。我想在每行新行之后添加，将列W从每行移动到AD（23:30）到我创建的新行。例如：如果我拿到这张纸：

1 1 1 1 1 1 1 1 B B B B B
2 2 2 2 2 2 2 2 B B B B B
3 3 3 3 3 3 3 3 B B B B B

我想创建一个执行此操作的宏：

1 1 1 1 1 1 1 1
B B B B B
2 2 2 2 2 2 2 2
B B B B B
3 3 3 3 3 3 3 3 
B B B B B

我试着拥有自己的，但我经常陷入困境。

Answer 1

Sub mover()
Dim lastRow
lastRow = Range("A65536").End(xlUp).Row
With lastRow
    For iRow = lastRow To 1 Step -1
        If IsEmpty("A" & iRow) = False Then
            Range("W" & iRow & ":AD" & iRow).Select
            Selection.Cut
            Rows(iRow + 1).Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Range("A" & iRow + 1).Select
        End If
    Next iRow
End With
End Sub

如何向添加的行添加行和复制单元格？

1 个答案: