选定要替换的区域
执行下面的宏
Sub Macro1()
For Each c In Selection
If Left(c, 1) = "0" Then c.Value = Replace(c, "0", "o")
Next
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Replace What:="0", Replacement:="o", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub