求excel 宏：比较两列同行的两数（有文字），如果不相等，则在同行后面3列的数上插入单元格，直到同行两列相等为止

Question

比较（A，N),(B,N)
如果相等则比较(A,N+1),B(N+1)如不相等，则插入三个空白单元格，使原（B,N）,(C,N),(D,N)移动到（B,N+1）(C,N+1)(D,N+1)，并再次比较（A,N+1）,(B,N+1)循环直到（B,N）为空
Dim ra As Integer
For ra = 2 To 300
    If Cells(4, ra) <> Cells(5, ra).Value Then
Range("5,ra:7,ra").Select
Selection.Insert Shift:=xlDown
    End If
Next ra
End Sub
这个是我乱写的代码，肯定运行不起。麻烦那位大哥给我改下。

Answer 1

Dim ra As Integer
For ra = 2 To 300
    If Cells(4, ra).Value <> Cells(5, ra).Value Then
Range("5,ra:7,ra").Select
Selection.Insert Shift:=xlDown
    End If
Next ra
End Sub
少了个Value但是还是不能运行。