Macro: insere uma nova linha acima de uma célula contendo números diferentes

Question

Eu tenho um excel com duas colunas. A coluna A contém números e a coluna B contém dados de texto. Os números são contínuos como 1 2 3 com várias células em branco entre eles, como mostrado abaixo. Por exemplo:

1   Text
    Text
    Text
2   Text
    Text
    Text
3   Text
    Text

Eu preciso inserir uma linha em branco logo acima de cada um dos números da coluna A.

Alguém pode me ajudar a configurar uma macro do Excel para inserir uma linha em branco logo acima da célula que contém um número na coluna A.

    

Answer 1

Na minha opinião, há uma pequena ambigüidade na sua descrição, mas é isso que eu fiz para exatamente estar de acordo com os requisitos especificados.

Dim r As Long
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If IsNumeric(Cells(r, 1).Value) And CBool(Len(Cells(r, 1).Value)) Then _
        Rows(r).EntireRow.Insert shift:=xlDown
Next r