[已解决]请教①②③④⑤⑥如何批量查找替换

ww0000

将中文的一到九替换为0：
Sub Macro10()
    For i = 0 To 9
        Cells.Replace What:=Application.ExecuteExcel4Macro("numberstring(" & i & "" & "," & "1)"), Replacement:="0"
     Next i
End Sub


如果是①到⑨
又该如何替换呢？？？

最佳答案

月排行榜 / 总排行榜

wayy

2012-7-27 15:53

1. Sub wayy()
   
2. On Error Resume Next
   
3. arr = Array("①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨")
   
4. For i = 0 To 8
   
5.   Cells.Replace What:=arr(i), Replacement:=""
   
6. Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

rebornxldeng

①到⑨.
我能想到的是建立一个内存数组.利用数组自行为元素提供的序号与①到⑨进行对应.

wayy

1. Sub wayy()
   
2. On Error Resume Next
   
3. arr = Array("①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨")
   
4. For i = 0 To 8
   
5.   Cells.Replace What:=arr(i), Replacement:=""
   
6. Next
   
7. End Sub

复制代码