如何在Excel中用下标查找和替换数字？

Sub SubscriptNumbers() UpdatebyExtendoffice20160705 Dim xRg As Range Dim xTxt As String Dim xCell As Range Dim xChar As String Dim I As Long On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each xCell In xRg xTxt = xCell.Value For I = 1 To Len(xTxt) xChar = Mid(xTxt, I, 1) If xChar >= "0" And xChar <= "9" Then xCell.Characters(I, 1).Font.Subscript = True End If Next Next Application.ScreenUpdating = True End Sub

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。