Excel Inserir linhas em branco a cada alteração/Mudança de variável

[ppeterk]

Amigos, boa tarde!

 

 

Gostaria de um código que acrescentasse uma linha em branco a cada variação/mudança de código da coluna A (É tipo um subtotal).

Exemplo:

- Após o final do código A, adicione uma linha

- Após o final do código B, adicione uma linha

Pesquisei, mas só encontrei arrays definidos (a cada 100 linhas, a cada 25 linhas).

Desde já agradeço

[Patropi]

Boa tarde @ppeterk

 

Experimente:

 

Sub InsereLinha()

LinCelula1 = ActiveSheet.Cells(1, 1)

For x = 1 To 10000

If LinCelula1 = "" Then Exit Sub

LinCelula2 = ActiveSheet.Cells(x, 1)

If LinCelula1 <> LinCelula2 Then
ActiveSheet.Cells(x, 1).Select
Selection.EntireRow.Insert
x = x + 1
LinCelula1 = ActiveSheet.Cells(x, 1)
End If

Next x

End Sub

[]s

[ppeterk]

Nossa! Perfeito. É exatamente isso. Muito obrigado, @Patropi!