一段查询替换的VBA代码

从数据库导出的一份EXCEL数据，客户要求将NULL的数据用相邻的数据替换了没有写过这样的VBA代码，用了一个多小时帮助系统终于写出了4行代码。

Sub Macro1()
    For Each c In [G2:G13030]
        If c.Text = "NULL" Then
            c.Value = Cells(c.Row - 1, 7).Text
        End If
    Next
End Sub