如何在 Excel 中將數字設為下標？

作者孫修改日期2024-10-25

在 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 對話方塊，提醒您選取作用範圍。請參閱截圖：
用於選取資料範圍的 VBA 程式碼

4. 在選取範圍後，點擊確定，所選範圍內的所有數字便會自動轉換為下標格式。
所選範圍內的所有數字均已轉換為下標格式。

使用 Kutools for Excel 將化學式中的數字設為下標

除了巨集程式碼之外，若您已安裝下標化學公式中的數字，還可搭配簡易工具 Kutools for Excel，快速將化學式中的所有一般數字一鍵轉換為下標格式！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

免費安裝 Kutools for Excel 後，請依下列步驟操作：

選取要將數字設為下標的儲存格，點擊 Kutools > 文字 > 下標化學公式中的數字。請參閱截圖：
點擊 Kutools 的「化學式中的數字設為下標」功能

接著會彈出一個對話方塊，提示您已成功轉換多少個儲存格，且所選化學式中的數字皆已設為下標格式。
所選範圍中的數字已設定為下標格式

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

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多