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

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

所需的输出如下所示

---

假设数据如下

然后尝试以下代码

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

根据您的数据更改范围。这将产生如下结果：

---

工作正常！！