如何在 Excel 中快速將「尋找與取代」的字元設為上標?

使用查找和替換函數將字元設為上標
使用 VBA 將查找和替換設為上標
使用查找和替換函數將字元設為上標
實際上,您可以運用「尋找與取代」功能搜尋文字,並以「上標」格式進行取代。
1. 選取您要執行「查找和替換」作業的範圍,然後按下 Ctrl + H,即可開啟查找和替換對話方塊。
2. 在查找和替換對話方塊中,先點選取代索引標籤,再於搜尋目標文字方塊中輸入您要搜尋的文字。請參閱截圖:
3. 接著前往取代為文字方塊,輸入您要用來取代的文字。請注意:按住 Alt 鍵,並在數字鍵區依序按下 0179,即可輸入上標數字³。請參閱截圖:
4. 按一下全部取代,系統將彈出對話方塊,顯示已完成的取代次數。請參閱截圖:
提示:但使用此方法時,您只能透過輸入「0178」來插入上標數字 2,以及輸入「0179」來插入 3.

透過 KUTOOLS AI 解鎖 Excel 的神奇功能
- 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
- 自訂公式:打造專屬公式,讓您的工作流程更順暢!
- VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
- 公式解析:輕鬆掌握複雜公式!
- 文字翻譯:輕鬆打破試算表中的語言隔閡!
使用 VBA 將查找和替換設為上標
使用「尋找與取代」功能僅能將數字替換為上標。若想如以下截圖所示,將字母轉為上標,則可透過套用 VBA 程式碼來實現。
1. 按下 Alt + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗!
2. 點選插入> 模組,並將下方的 VBA 程式碼貼上至指令碼中。
VBA:將查找和替換設為上標格式
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
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
For Each xCell In xRg
If xCell.Value = "YL 3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub 
3. 按下 F5 鍵以執行程式碼,此時會彈出一個對話方塊,提示您選取一個範圍。請參閱截圖:
4. 按一下確定,選取範圍內特定字串中的指定字元即會轉換為上標格式。請參閱截圖:
提示:在程式碼中,「YL 3」是您要搜尋的字串,而 (1,1) 表示將該字串的前 1 個字元轉換為上標;若要轉換前兩個字元,可改為(1,2);若想從第 2 個字元開始轉換 1 個字元,則可改為(2,1)。
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用