Vba 自动排列数据

有没有办法像图片一样整理数据

*要求是当列A单元格为空时，列B值将移动到列B单元格的前一个非空列A行

试试这段代码

Sub Macro1()

Dim i As Long
 i = 1
  Do Until Cells(i, 2) = ""
    If Cells(i, 1) = "" Then
    On Error Resume Next
     Cells(i - 1, 2) = Cells(i - 1, 2) & "," & Cells(i, 2)
       Cells(i, 2).EntireRow.Delete
          i = i - 1
        End If
         i = i + 1
        Loop

End Sub

---

您是否需要对其进行排序？例如，如果列A获得相同的数据，则将组合在一起（而不是重复的数据）。谢谢