如何在 Excel 中查找並將數字替換為下標？

在 Excel 中，您可以使用「尋找和替換」功能將數字替換為上標格式，但當您想替換為下標格式時，此功能無法正常運作，如下方截圖所示。然而，我可以介紹一些技巧給您，幫助您快速處理這個問題。

使用 VBA 查找並替換所有數字為下標

使用 Kutools for Excel 在化學公式中查找並替換帶有下標的數字

使用 VBA 查找並替換所有數字為下標

在 Excel 中，除了巨集代碼之外，沒有其他方法可以幫助您查找並將文字替換為下標格式。

1. 按 Alt + F11 鍵以顯示 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後將以下代碼粘貼到空白腳本中。

VBA：查找並將所有數字替換為下標格式

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

3. 按 F5 鍵，會彈出一個 Kutools for Excel 對話框，提醒您選擇工作區域。請參閱截圖：

4. 選擇後，點擊 確定，選取範圍內的所有數字都已轉換為下標。

使用 Kutools for Excel 在化學公式中查找並替換帶有下標的數字

除了巨集代碼外，實際上，您可以應用一個簡單的工具，稱為「下標化學公式中的數字」，快速將化學公式中的所有普通數字轉換為下標格式，如果您已經安裝了 Kutools for Excel。

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

選擇您要將數字設置為下標的單元格，點擊 Kutools > 文字 > 下標化學公式中的數字。請參閱截圖：

隨後會彈出一個對話框，提醒您有多少單元格已被轉換，並且所選化學公式中的數字已格式化為下標格式。

  在化學公式中將數字轉換為下標