Inserir linhas em l...
 
Compartilhar:
Notifications
Clear all

Inserir linhas em lista de códigos


depoisteconto
Posts: 183
Registered
Topic starter
(@depoisteconto)
Estimable Member
Entrou: 10 anos atrás

Boa tarde colegas,

Tenho um desafio que é inserir 12 linhas abaixo de cada código de uma lista/coluna.

Então estou a procura de alguma solução em VBA, pois fazer isso na mão vai me custar muitas horas ...  a planilha tem cerca de 800 códigos.

Elaborei num exemplo, como está e como deveria ficar.

Qualquer ajuda é sempre bem vinda 😉 

 

 

 

Responder
1 Reply
Osvaldomp
Posts: 536
Registered
(@osvaldomp)
Honorable Member
Entrou: 10 anos atrás

Olá, @depoisteconto.

Experimente:

Sub InsereLinhas()
Dim k As Long
Application.ScreenUpdating = False
For k = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
Rows(k + 1).Resize(11).Insert
Cells(k, 2) = 1: Cells(k, 2).AutoFill Destination:=Cells(k, 2).Resize(12), Type:=xlFillSeries
Cells(k, 3) = 2022: Cells(k, 3).Resize(12).FillDown
Next k
End Sub
Responder
Compartilhar: