请问<em>EXCEL</em>如何利用宏代码批量替换-excel 宏替换,excel用宏实现自

Sub 批量查找替换copy()
'查找a列含有31的单元格zd
acount = [a10000].End(xlUp).Row
b = 0
For k = 1 To acount
If Range("a" & k) ="31" Then
a = Cells.Find(What:="31", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Row
arr(b) = a
b = b + 1
End If
Next

'将原来含有31的单元格替换成aa
For i = 0 To UBound(arr)
Range("a" & arr(i)).Replace Range("a" & arr(i)), Replacement:="aa"
Next
End Sub

ctrl+h弹出替换框——查找内容中输入指定字符，指定字符间输入*——替换为输入需要替换成的字符——全部替换，如图：
看代码应该是没有错，就是你执行宏的时候活动工作表是不是就是这个表。

在G2内写下面的公式，然后下拉，结果就是需要的F列结果，可以复制粘贴值过去：

=SUBSTITUTE(F2,E2,"")

例如：