Макрос: вставьте новую строку над ячейкой, содержащей другие числа

Question

У меня есть Excel с двумя колонками. Столбец A содержит числа, а столбец B содержит текстовые данные. Числа непрерывны как 1 2 3 с несколькими пустыми ячейками между ними, как показано ниже. Например:

1   Text
    Text
    Text
2   Text
    Text
    Text
3   Text
    Text

Мне нужно вставить пустую строку чуть выше каждого числа в столбце А.

Может кто-нибудь помочь мне настроить макрос Excel для вставки пустой строки чуть выше ячейки, содержащей число в столбце А.

Answer 1

На мой взгляд, в вашем описании есть небольшая двусмысленность, но это то, что я придумал, чтобы точно соответствовать указанным требованиям.

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