Excel - macro para pesquisar célula e adicionar nova linha

Questão

Eu quero criar uma macro que vai olhar, por exemplo, a coluna A e encontrar o último número digitado, em seguida, adicionar uma linha abaixo e fazer isso toda vez que correu.

Solução

Você pode usar esta macro:

 Sub Insert_Row () Dim n As Inteiro n = Células (Rows.Count, 1) .End (xlUp) .Row Rows (n) .Selecione Selection.Insert Shift: = xlUp End Sub 

Nota

Graças a aquarelle para esta dica no fórum.