Автоматизировать, чтобы организовать данные

Question

Есть способ организовать данные, как на картинке?

* требуется, чтобы ячейка столбца A была пустой, тогда значение столбца B переместится в предыдущую непустую строку столбца A в ячейке столбца B.

Пример фото

Answer 1

Попробуйте этот код

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