自己录个宏,而后用下面的代码
Sub 字母编0()
'
' 字母编0 Macro
'
'
Dim stepi As Integer
Dim stepii As Integer
Dim stri
Dim strii
For stepi = 65 To 90 Step 1
stri = Chr(stepi)
Cells.Select
Selection.Replace What:=stri, Replacement:="'0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Next
For stepii = 97 To 122 Step 1
strii = Chr(stepii)
Cells.Select
Selection.Replace What:=stri, Replacement:="'0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Next
End Sub
温馨提示:答案为网友推荐,仅供参考