强大的Excel 的 VBA

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/yan88888888888888888/article/details/86682552

今天遇到一个对于vba来说简单的问题 但是直接使用excel的话 会麻烦点

我想通过 查找E列单元格中的指定文字，如果查找到 把G列文字的该行对应的单元格填充相应的内容

Sub 宏1()
'
' 宏1 宏
'

For Each Rng In Range("E1:E8130")
    If Rng = "指定文字" Then
        a = Rng.Row
        b = Rng.Column
        Cells(a, 7) = "填充文字"
    End If
Next
End Sub