Vba para preencher linhas

[Marcos Antonio_784573]

Boa tarde,

 

Preciso de um comando VBA para que por exemplo selecionio a Celula A1 e 8 linhas abaixo ele acrescenta o numero 1 sucessivamente até o final da planilha.

 

TIpo

 

na celula a1 está o numero 1 ai pula 8 linhas e preenche com o 1 pula novamente 8 linhas e preenche com o 1 até o final rs

 

Meus conhecimentos são muito poucos ainda em vba :/

 

Agradeço

[Wendell Menezes]

O final da planilha é na linha 1.048.576, tem certeza que precisa ir tão longe assim?

[Marcos Antonio_784573]

A linha final é a de numero 4529

[Wendell Menezes]

Experimente esse:

Sub X()For r = ActiveCell.Row To Cells(Rows.Count, 2).End(xlUp).Row Step Selection.Rows.Count    Cells(r, 1) = Cells(1, 1)NextEnd Sub

1. Coloque o número 1 na célula A1

2. Certifique-se que a coluna B possua dados até o fim dua sua planilha.

3. Selecione da célula A1 até a quantidade de linhas que você quer pular, se no seu caso são 8, selecione A1:A8

4. Rode o código