Convertendo uma lista de colunas de A2: A142 para uma lista com vírgulas na célula B1; mantendo um formato como "0000" com zeros à esquerda

Question

Esse código funciona para converter a lista de colunas em uma lista concatenada com vírgulas, no entanto, o formato não tem zeros à esquerda enquanto o VBA faz um loop em 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

Vamos apenas usar valores formatados:

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