如何在 Excel 中快速找出範圍或整個工作表內所有帶底線的文字？

作者Sun修改日期2024-10-12

假設您的工作表中有一個資料範圍，其中部分文字帶有底線，而您希望快速找出這些內容，該怎麼做？本文將為您介紹幾種實用技巧，協助您在 Excel 中迅速定位範圍內或整個工作表中所有帶底線的文字。

使用 VBA 找出工作表中所有帶底線的文字

使用 Kutools for Excel 在範圍或工作表中找出所有帶底線的文字

使用 VBA 找出工作表中所有帶底線的文字

在 Excel 中，您無法透過「定位條件」功能找出帶底線的文字，因此我提供了一段 VBA 程式碼，協助您快速找出工作表中所有帶底線的文字。

1. 按下 Alt + F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗，然後點擊插入 > 模組。

2. 在彈出的模組視窗中，貼上以下 VBA 程式碼。

VBA：找出工作表中所有帶底線的文字。

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. 點擊執行按鈕，或按下 F5 鍵，隨即會彈出一個對話方塊，供您選擇要搜尋帶底線文字的範圍。

用於選取資料範圍的 VBA 程式碼

4. 點擊確定後，將彈出另一個對話方塊，告訴您哪些儲存格包含單條底線文字，哪些包含雙條底線文字。

將彈出對話框，提示哪些儲存格的文字為單底線，哪些為雙底線。

如果您只想在特定範圍內找出某種類型的帶底線文字，這段 VBA 程式碼可能無法滿足您的需求；不過，您可以透過下方的實用工具輕鬆完成此任務。

使用 Kutools for Excel 在範圍或工作表中找出所有帶底線的文字

若您已安裝 Kutools for Excel，即可使用選擇類似格式單元格功能，快速找出整個工作表或指定範圍內所有帶底線的文字！

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

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

1. 選取一個空白儲存格（例如 A1），輸入任意資料，然後點擊開始 > 底線，並選擇您需要的底線樣式。請參閱截圖：

按一下「開始」>「底線」，並選擇一種底線類型

2. 接著選取您要搜尋特定底線文字的範圍，然後點擊 Kutools > 選取 > 選擇類似格式單元格。請參閱截圖：

按一下 Kutools 的「選取具有格式的儲存格」功能

3. 在選擇類似格式單元格對話方塊中，點擊從單元格選擇格式，並選取步驟 1 中已設定底線格式的儲存格。請參閱截圖：

按一下「從儲存格選擇格式」選取您已設定底線格式的儲存格

4. 在選擇類似格式單元格對話方塊中，僅勾選底線，然後點擊確定。請參閱截圖：

在對話框中僅勾選「底線」

5. 點擊確定後，將彈出對話方塊，提示您已選取多少個帶底線的文字，點擊是即可關閉。

將彈出對話框，提醒您已選取多少個帶底線的文字

現在，所有帶底線的文字都已選取完畢。

所有帶底線的文字皆已選取

提示：

1. 若要找出整個工作表中所有帶底線的文字，請先點擊工作表左上角以選取整個工作表，再套用選擇類似格式單元格功能。

2. 在忽略空白單元格的選擇類似格式單元格對話方塊中勾選此選項後，即使空白儲存格設有底線格式，也會一併被忽略。

最佳 Office 生產力工具

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