Bom dia sion

Seja bem vindo ao fórum!

Estou movendo teu tópico para o subfórum ?Formulas & Funções, pois aqui é exclusivo para postar Dicas e Macetes.

Um abraço.

Sion

Dá pra fazer isso de uma maneira bem fácil:

**NA CÉLULA A1 DIGITE 1
NA CÉLULA A2 DIGITE =A1+1 E ARRASTE A FÓRMULA ATÉ A6;
NA CÉLULA B1 DIGITE A1+6
SELECIONE AS CÉLULAS A2 ATÉ A6 E ARRASTE ATÉ B2;
AGORA SELECIONE DA CÉLULA B1 ATÉ B6 E ARRASTE ATÉ A COLUNA "BLC"
Pronto vai até o número 10002

Baixe a planilha:

Dê retorno.

Um abraço.

desculpa a minha ignorancia patropi, rs . e pq sou novo aqui e estou com um pouquinho de urgencia nessa planilha.
eu entendi a resposta que vc me enviou, porem acho que vc nao deve ter intendido muito bem, vou te enviar uma anexo pra vc ver a sequencia que eu gostaria de fazer.

Em VBA, a coisa mais próxima que consegui fazer foi isso:

Sub ate_10000()
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, rg As Long
a = 1
For rg = 1 To 2000
b = a + 1
c = b + 1
d = c + 1
e = d + 1
ActiveSheet.Range("A" & rg).Value = a & ", " & b & ", " & c & ", " & d & ", " & e
f = e + 1
a = f
Next rg

End Sub

-A

amigo nao intendo muito de excel, nao sei como poderia fazer isso aqui, se nao for pedir muito vc poderia mandar uma planilha de ex.
Aguardo resposta

Claro! Só baixar a planilha anexa.

Alminem muito obrigado era isso msm que eu queria, agora vc poderia me dar uma explicação de com ver o que vc fez, pq ex se eu quiser alterar o A1 de 1,2,3,4,5 para 0001, 0002, 0003, 0004, 0005, 0006, 0007, 0008, 0009, 0010. como poderia eu msm fazer essa alteração

Olá!
Eu fiz por VBA, conforme o código acima. Não tenho uma solução direta por fórmulas, mas vou postar aqui o código modificado e a planilha atualizada.

Sub ate_10000format()
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, rg As Long
a = 1
For rg = 1 To 2000
b = a + 1
c = b + 1
d = c + 1
e = d + 1
ActiveSheet.Range("A" & rg).Value = Format(a, "0000") & ", " & Format(b, "0000") & ", " & Format(c, "0000") & ", " & Format(d, "0000") & ", " & Format(e, "0000")
f = e + 1
a = f
Next rg

End Sub

vlw amigo, muito obrigado, me ajudou muito

Sion22_rj,

Por fórmulas:

Em A1 faça:

=TEXTO(LIN()*5-4;"00000")&", "&TEXTO(LIN()*5-3;"00000")&", "&TEXTO(LIN()*5-2;"00000")&", "&TEXTO(LIN()*5-1;"00000")&", "&TEXTO(LIN()*5;"00000")

Arraste até a linha 2000.

Abs,