매크로 : 다른 숫자를 포함하는 셀 위에 새 행을 삽입하십시오.

두 개의 열이있는 엑셀이 있습니다. 열 A에는 숫자가 있고 열 B에는 텍스트 데이터가 있습니다. 숫자는 1 2 3과 같이 연속적이며 아래에 표시된 것처럼 여러 개의 빈 셀이 있습니다. 예를 들면 다음과 같습니다.

1   Text
    Text
    Text
2   Text
    Text
    Text
3   Text
    Text

A 열의 각 숫자 바로 위에 빈 행을 삽입해야합니다.

누구나 열 A에 숫자가 포함 된 셀 바로 위에 빈 행을 삽입하도록 Excel 매크로를 설정하도록 도와 줄 수 있습니까?

내 생각에는 설명에 약간의 모호성이 있지만 이것이 지정된 요구 사항 을 정확하게 준수하기 위해 내가 생각해 낸 것입니다 .

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