亞寵展、全球寵物產業風向標——亞洲寵物展覽會深度解析
450
2025-04-02
如何基于其他文本突出顯示單元格中的特定文本？
如何基于其他文本突出顯示單元格中的特定文本？
在Excel中，我們可以很容易地根據特定文本突出顯示單元格，但是在這里，我想突出顯示單元格中的特定文本以使其突出而不是整個單元格。 這對于我們大多數人來說可能是一個麻煩。 在本文中，我將討論在Excel中解決此工作的一些技巧。
使用VBA代碼突出顯示多個單元格中的一個或多個特定文本
例如，我有一系列文本字符串，現在，我要突出顯示特定文本“天空在這些單元格中獲取“”，結果如下所示：
要僅突出顯示單元格中的部分文本，以下VBA代碼可以為您提供幫助。
1. 選擇要突出顯示特定文本的單元格，然后按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：突出顯示單元格中的一部分文本：
Sub HighlightStrings()
Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Copy
3。 然后按 F5 鍵以運行此代碼，然后會彈出一個提示框，提醒您輸入僅要突出顯示的文本，請參見屏幕截圖：
4。 然后點擊 OK 按鈕，您指定的所有文本僅在單元格中突出顯示，請參見屏幕截圖：
Tips
：如果您需要突出顯示文本字符串中的多個關鍵字，請應用以下代碼：
VBA代碼：從文本字符串中突出顯示多個關鍵字：Sub HighlightStrings()
Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Copy
然后，在彈出的框中，輸入您要突出顯示的關鍵字（用逗號分隔單詞），請參見屏幕截圖：
然后，單擊 OK 按鈕，指定的單詞立即突出顯示，請參見屏幕截圖：
備注：以上代碼區分大小寫。
以驚人的功能突出顯示多個單元格中的一個或多個特定文本如果您不熟悉Excel中的代碼，在這里，我將介紹一個簡單的工具- Kutools for Excel，其 標記關鍵字 功能，您可以一次突出顯示單元格中的特定一個或多個關鍵字。
請注意：應用這些 標記關鍵字 功能，首先，您應該下載 Kutools for Excel，然后快速輕松地應用這些功能。
安裝后 Kutools for Excel，請執行以下操作：
1。 點擊 Kutools > 文本 > 標記關鍵字，請參見屏幕截圖：
2。 在 標記關鍵字 對話框，請執行以下操作：
從中選擇要使用的數據范圍 Range 文本框; 選擇包含要突出顯示的關鍵字的單元格，也可以將關鍵字手動輸入（以逗號分隔）到 關鍵字 文本框 最后，您應指定一種字體顏色以通過選中來突出顯示文本 標記關鍵字顏色 選項。 （要為整個包含關鍵字的單元格上色，請選擇 標記單元格內容顏色 選項??）3。 然后，點擊 Ok 按鈕，所有指定的文本均已突出顯示，如下圖所示：
備注：此功能不區分大小寫，如果要突出顯示區分大小寫的文本，請檢查 區分大小寫 ，在 標記關鍵字 對話框。
使用VBA代碼根據其他文本突出顯示單元格中的特定文本這是另一種情況，我有兩列，第一列包含文本字符串，第二列是特定文本，現在，我需要根據第二列中的特定文本分別突出顯示第一列中的相對文本行。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：根據其他文本突出顯示單元格中的一部分文本：
Sub highlight()
Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
Copy
3。 粘貼代碼后，按 F5 要運行它，請彈出一個提示框，提醒您選擇包含文本字符串和要突出顯示的特定文本的數據范圍，請參見屏幕截圖：
4。 然后點擊 OK 按鈕，基于第二列中的特定文本，第一列中的所有相應文本已被染成紅色，如以下屏幕截圖所示：
更多相關文章：
在Excel中連接兩列時的粗體文本
在Excel工作表中，將兩個單元格值與公式連接起來后，您可能會發現它不會在組合的公式單元格中加粗文本的一部分。 有時這可能很煩人，當在Excel中連接兩列時如何加粗零件文本？
連接單元格列并在Excel中保留文本顏色
眾所周知，將單元格列連接或合并為一列時，單元格格式（例如文本字體顏色，數字格式等）將丟失。 本文，我將介紹一些技巧，以將單元格列合并為一個，并在Excel中盡可能輕松地保持文本顏色。
根據另一列中的值顯示特定的文本
假設我有一個數字列表，現在，我想根據此列號在另一列中顯示一些特定的文本。 例如，如果單元格號在1-100之間，則我希望在相鄰的單元格中顯示文本“減少”，如果該數字在101-200之間，則顯示文本“穩定”，并且該數字大于200 ，顯示“ Increase”（增加）文本，如下圖所示。 要解決Excel中的此任務，本文中的以下公式可能會對您有所幫助。
在Excel中用文本和數字求和的單元格
例如，我有一個包含數字和文本字符串的值列表，現在，我只想對基于相同文本的數字求和，請看以下屏幕截圖。 通常，您不能直接使用文本字符串將列表中的值求和，在這里，我將向您介紹一些公式來處理此任務。
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
