版权声明:本文为博主原创文章,未经博主允许不得转载。 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