在excel VBA中将数据对齐在两列中

Question

我是VBA Excel的新手。我想编写一个代码，将A列中的数据与B列中的数据对齐，然后删除剩下的空行 我的数据示例如下：

所需的输出如下所示。

Answer 1

假设数据如下

然后尝试以下代码

Sub Demo()
    With ThisWorkbook.Worksheets("Sheet7")  'change Sheet7 to your data sheet
        .Range("A1:B23").Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    End With
End Sub

根据您的数据更改范围。这将得到结果