Estou tentando adicionar espaços antes de números. O primeiro código deu certo, mas queria fazer em forma de loop.
Sub numeros()
numero = Range("A2").Value
n = 3
If Len(Range("A" & n).Value) = 3 Then
numero = Range("A" & n).Value
ElseIf Len(Range("A" & n).Value) = 2 Then
numero = " " & Range("A" & n).Value
ElseIf Len(Range("A" & n).Value) = 1 Then
numero = " " & Range("A" & n).Value
End If
Range("B" & n).Value = "|" & numero & "|"
End Sub
O mais perto que cheguei foi o loop abaixo. Porém ele entra em loop infinito, pois o VBA não entende que a quantidade de caracteres passou de 3.
Sub numeros2()
n = 1
numero = 1
espaço = 0
Do Until Len(numero) = 3
numero = Space(espaço) & numero
espaço = espaço + 1
Loop
Range("B" & n).Value = "|" & numero & "|"
End Sub