求高手编写一段EXCEL的VBA代码

2024-11-08 06:03:41

推荐回答（2个）

回答（1）：

选定要替换的区域
执行下面的宏

Sub Macro1()
For Each c In Selection
If Left(c, 1) = "0" Then c.Value = Replace(c, "0", "o")
Next
End Sub

回答（2）：

Sub Macro1()
'
' Macro1 Macro

'

'
Cells.Replace What:="0", Replacement:="o", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

最新问答

电子式互感器用铁芯吗？用什么样的？

南宁西乡塘区有哪些大学？

别人送了一牛皮水桶包，包上面没有任何标志，只在暗扣上有一LONGBOOM的字母，请问这是什么牌子的包啊

win10突然所有软件都打不开

准备买车，内行的人进来！！

我一个朋友，把人打成轻伤双方要和解后还要判刑吗？是邻居，他也有打，只是他做了法医鉴定，我朋友没做

请教怎么解开浏览器被的淘宝客PID被劫持，我的系统是网上下载的，被改成了别人的PID，求教，谢谢！

福州大学历年录取分数线

从小榄镇去中山市沙溪镇理工学校坐那路公交车

请大家帮忙出出主意