vba - 创建宏以向上移动列中的数据？

Question

我有一个 Excel 工作表，其中的数据很困惑:例如，本应位于 AB 和 AC 列中的数据却位于 B 和 C 列中，但位于后面的行中。我编写了以下内容，将数据分别从 B 和 C 移动到 AB 和 AC:

Dim rCell As Range
Dim rRng As Range

Set rRng = Sheet1.Range("A:A")

i = 1

lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For Each rCell In rRng.Cells

If rCell.Value = "" Then

    Range("AB" & i) = rCell.Offset(0, 1).Value

    rCell.Offset(0, 1).ClearContents

    End If

    i = i + 1

    If i = lastRow + 1 Then

    Exit Sub

    End If

Next rCell

End Sub

但是，它并不能解决数据位于适当行下方的行的问题，因为它们位于正确的列中。我是 VBA 宏的新手，因此我希望能得到任何帮助来使数据对齐。我尝试切换偏移参数 (-1,0)，但它不起作用。

Answer 1

尝试这样的事情吗？

For i = Lastrow To 1 Step -1
    ' move data into cell AA from Cell A one row down
    Cells(i, 27).Value = Cells(i + 1, 1).Value
Next