Преобразование списка столбцов из A2:A142 в список с запятыми в ячейку B1; удерживая формат как "0000" с ведущими нулями

Question

Этот код работает для преобразования списка столбцов в составной список с запятыми, однако формат не имеет начальных нулей, пока VBA зацикливается на B !.

Dim i As Integer

Dim s As String

i = 2

Do Until Cells(i, 1).Value = ""

If (s = "") Then

s = Cells(i, 1).Value

    Else
        s = s & ", " & Cells(i, 1).Value

    End If
    i = i + 1
Loop
Cells(1, 2).Value = s

Answer 1

Мы просто будем использовать отформатированные значения:

Sub qwerty()
Dim i As Integer
Dim s As String

i = 2

Do Until Cells(i, 1).Value = ""
    If (s = "") Then
        s = Format(Cells(i, 1).Value, "0000")
    Else
        s = s & ", " & Format(Cells(i, 1).Value, "0000")
    End If
    i = i + 1
Loop

Cells(1, 2).Value = s
End Sub