Question

excel宏如何查找某文字后进行替换

要查找表格中是否包含“业务”，如某单元格的文字中包含，就将此单元格整个替换为“业务”
请问是否可以用宏实现，谢谢~

Answer 1

　　方法：
　　假如要将A1:G100单元格中所有包含“业务”的单元格全部替换为“业务”，可用如下代码:

Sub aa()
Dim i As Integer
With Range("A1:G100")
For i = 1 To .Cells.Count
If WorksheetFunction.CountIf(.Cells(i), "*业务*") = 1 Then
.Cells(i) = "业务"
End If
Next i
End With
End Sub

打开VBE编辑器，粘贴上面的代码，运行后即可达到要求。

Answer 2

假如要将A1:G100单元格中所有包含“业务”的单元格全部替换为“业务”，可用如下代码：

Sub aa()
Dim i As Integer
With Range("A1:G100")
For i = 1 To .Cells.Count
If WorksheetFunction.CountIf(.Cells(i), "*业务*") = 1 Then
.Cells(i) = "业务"
End If
Next i
End With
End Sub

打开VBE编辑器，粘贴上面的代码，运行后即可达到要求。

追问

如果需要增加关键词怎么修改呢 比如加个经理

追答

加了这个词后要替换成什么呢？是要同时成立呢还是满足一个条件就可以？

追问

经理

追答

Sub aa()
Dim i As Integer
With Range("A1:G100")
For i = 1 To .Cells.Count
If WorksheetFunction.CountIf(.Cells(i), "*业务*") = 1 Then
.Cells(i) = "业务"
End If
If WorksheetFunction.CountIf(.Cells(i), "*经理*") = 1 Then
.Cells(i) = "经理"
End if
Next i
End With
End Sub

追问

如果表格中的内容为“业务经理”时 会出现错误吗

追答

所以你的条件还是有问题的，不知道同时满足两个条件时要替换成什么，你也没有说清楚。

追问

知道了 谢谢~