Note: The other languages of the website are Google-translated. Back to English
登入 立即註冊

如何在Excel中以不同的顏色突出顯示重複的值？

doc不同顏色重複1

在Excel中，我們可以通過使用 條件格式，但有時，我們需要用不同的顏色突出顯示重複值，以快速，輕鬆地識別重複項，如以下屏幕截圖所示。 您如何在Excel中解決此任務？

使用VBA代碼以不同的顏色突出顯示一列中的重複值

箭頭藍色右氣泡 使用VBA代碼以不同的顏色突出顯示一列中的重複值

實際上，我們沒有直接方法可以在Excel中完成此工作，但是下面的VBA代碼可能會為您提供幫助，請執行以下操作：

1。 選擇要突出顯示具有不同顏色的重複項的值列，然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：用不同的顏色突出顯示重複的值：

Sub ColorCompanyDuplicates()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    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("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

3。 然後按 F5 鍵以運行此代碼，並出現一個提示框，提示您選擇要突出顯示重複值的數據范圍，請參見屏幕截圖：

doc不同顏色重複2

4。 然後點擊 OK 按鈕，所有重複的值都以不同的顏色突出顯示，請參見屏幕截圖：

doc不同顏色重複1

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
  • 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
  • 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
  • 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

  • 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
officetab底部
按評論排序
最舊的
最新的
留言 (91)
還沒有評分。 成為第一位評論！
愛德華·
愛德華·
網站主持人對此評論進行了最小化
它在零件編號列表上對我有用。
回复
0
0
亞歷克斯
亞歷克斯     愛德華·
網站主持人對此評論進行了最小化
你好，

有沒有辦法讓它只影響突出顯示的列而不是整行？ 一些粗體的紅色和藍色很難在整個電子表格中一直看到。 謝謝
回复
0
0
帕特里克·A。
帕特里克·A。
網站主持人對此評論進行了最小化
這正是我需要的，謝謝。 有時當我運行此代碼時 Excel 會凍結，我使用的是 Office 2016 / Windows 10，知道為什麼嗎？
回复
0
0
艾倫
艾倫     帕特里克·A。
網站主持人對此評論進行了最小化
帕特里克，只突出你想要的單元格。 不要突出顯示將包含所有數千個空白單元格的整個列
回复
0
0
Swapnil
Swapnil
網站主持人對此評論進行了最小化
我想檢查我無法執行的 5000 個單元格的重複項。 我可以突出顯示最多 70 到 80 個單元格的重複項
回复
0
0
JOTA475
JOTA475     Swapnil
網站主持人對此評論進行了最小化
子總線D()
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xChar 調暗為字符串
將 xCellPre 調暗為範圍
暗淡 xCol 作為集合
暗淡我只要
將 J 調暗為整數
將 K 調暗為整數
將 xCLR 調暗為整數

xCLR = 28

在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("Seleccione elrango a evaluar:", "Buscar duplicados", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
Ĵ = 0
K = 0
設置 xCol = 新集合
對於 xRg 中的每個 xCell
在錯誤恢復下一頁
xCol.Add xCell, xCell.Text
如果 Err.Number = 457 那麼
設置 xCellPre = xCol(xCell.Text)
如果 xCellPre.Interior.ColorIndex = xlNone 那麼
xCellPre.Interior.Color = RGB(255, J, K)
xCell.Interior.Color = RGB(255, J, K)
如果 K + xCLR <= 255 那麼
K = K + xCLR
其他
如果 J + xCLR <= 255 那麼
K = 0
J = J + xCLR
其他
MsgBox "!Demasiados datos duplicados!: Reducir 變量 xCLR", vbCritical, "錯誤"
退出小組
如果結束
如果結束
其他
xCell.Interior.Color = xCellPre.Interior.Color
如果結束
ElseIf Err.Number = 9 則
MsgBox "Demasiados datos duplicados!", vbCritical, "錯誤"
退出小組
如果結束
在錯誤轉到0
下一頁

END SUB

Es un tema viejo, pero lo dejo por si alguien lo necesita。 Con el código anterior y modificando la variable "xCLR", desde 1 a 255, se pueden obtener desde 4 hasta 65.000 colores diferentes。 En mi caso, configure el rojo del RGB con un valor estático de 255 y varío los valores verde y azul (255, X, X)。 Si se requieren mas colores, se podría alterar el valor del rojo, logrando mas de 166 millones de colores diferentes
回复
0
0
戈爾扎
戈爾扎
網站主持人對此評論進行了最小化
這對我來說是救命稻草，非常感謝您的分享！ 當我在大約 2000 個帶有值的單元格上運行它時，它只會突出顯示一些重複項。 有沒有辦法解決這個問題？ 我想知道它是否用完顏色或有其他東西。
回复
0
0
yp
yp     戈爾扎
網站主持人對此評論進行了最小化
同樣的問題我正在嘗試使用幾百個單元格，並且很快它就會以相同的顏色著色。 有解決辦法嗎？ 謝謝
回复
0
0
ES
ES
網站主持人對此評論進行了最小化
同樣的問題。 有人想出這個嗎？
回复
0
0
玩笑
玩笑
網站主持人對此評論進行了最小化
我有同樣的問題，問題是顏色索引只到 56，所以一旦它通過它就不再為單元格著色。 為了解決這個問題，我將“xCIndex = xCIndex + 1”行替換為以下內容： If xCIndex > 55 Then xCIndex = 3 Else xCIndex = xCIndex + 1 End If 它最終會開始重用顏色，但這不是問題我。
回复
0
0
FRANK
FRANK     玩笑
網站主持人對此評論進行了最小化
替換為 If xCIndex > 55 Then xCIndex = 3 Else xCIndex = xCIndex + 1 End If Did not work。 試圖讓它在 14000 行上工作，大約 6000 個重複
回复
0
0
戈爾扎
戈爾扎     FRANK
網站主持人對此評論進行了最小化
它對我有用，我縮進了第二行和第四行。 見下文。 Josh 的代碼是粗體的。

如果 Err.Number = 457 那麼
如果 xCIndex > 55 則
xCIindex = 3
其他
xCIndex = xCIndex + 1
如果結束
設置 xCellPre = xCol(xCell.Text)
回复
0
0
戈爾扎
戈爾扎     玩笑
網站主持人對此評論進行了最小化
非常感謝喬希，它有效！
回复
0
0
羅賓
羅賓     玩笑
網站主持人對此評論進行了最小化
這很完美！ 謝謝你。 我正在失去理智試圖找到解決方案。 感謝你。
回复
0
0
賈森
賈森
網站主持人對此評論進行了最小化
我嘗試運行了幾次，每次單擊“確定”時，它都會將我送回模塊屏幕。 我正在使用 Excel 2010。
回复
0
0
莎拉
莎拉
網站主持人對此評論進行了最小化
這太棒了，正是我想要的！ 我正在將此代碼合併到一些現有代碼中 - 我已經編寫了代碼來選擇我想要著色的單元格，然後我調用代碼來進行著色。 我唯一想不通的是如何繞過彈出的msgBox，我必須單擊“確定”。 我是 VBA 的新手，不知道如何更改此代碼....任何建議，請！ :)
回复
0
0
沃伊切赫·拉德萬
沃伊切赫·拉德萬     莎拉
網站主持人對此評論進行了最小化
替換行： Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
至
設置 xRg = Range("A1:A100")

或者如果您有表格，您可以應用於整個表格列：
設置 xRg = Range("Table1[[#All],[Column1]]")

只需將 Table1 替換為您自己的名稱，並將 Column1 替換為您希望應用此宏的任何表頭。


問候
沃伊切赫
回复
0
0
什里坎特納亞克
什里坎特納亞克
網站主持人對此評論進行了最小化
我真的很高興，因為我得到了我需要的東西。 謝謝
回复
0
0
巴吉
巴吉
網站主持人對此評論進行了最小化
如何改變顏色？
回复
0
0
天陽
天陽     巴吉
網站主持人對此評論進行了最小化
你好，
該代碼只能幫助您隨機添加不同的顏色，不能更改顏色。
感謝您！
回复
即時報告
0
0
約翰福音
約翰福音     天陽
網站主持人對此評論進行了最小化
它似乎總是使用相同的調色板，有沒有辦法選擇它使用的調色板？ 它給了我一些非常深的顏色，通過這些顏色，文本是不可讀的。
回复
0
0
埃德蒙·佩林貢
埃德蒙·佩林貢     巴吉
網站主持人對此評論進行了最小化
我也有同樣的問題...顏色太深無法閱讀...
回复
即時報告
0
0
牧牛
牧牛
網站主持人對此評論進行了最小化
沒有空怎麼換顏色？？？？？？？？？？？？？？？？？？
回复
0
0
天陽
天陽     牧牛
網站主持人對此評論進行了最小化
你好，哥皮，
為避免出現空白單元格，請應用以下 VBA 代碼：
子 ColorCompanyDuplicates()
'更新通過 Extendoffice 20171222
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xChar 調暗為字符串
將 xCellPre 調暗為範圍
將 xCIndex 變暗
暗淡 xCol 作為集合
暗淡我只要
在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
xCIindex = 2
設置 xCol = 新集合
對於 xRg 中的每個 xCell
在錯誤恢復下一頁
如果 xCell.Value <> "" 那麼
xCol.Add xCell, xCell.Text
如果 Err.Number = 457 那麼
xCIndex = xCIndex + 1
設置 xCellPre = xCol(xCell.Text)
如果 xCellPre.Interior.ColorIndex = xlNone 那麼 xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 則
MsgBox "太多重複的公司！", vbCritical, "Kutools for Excel"
退出小組
如果結束
在錯誤轉到0
如果結束
下一頁
END SUB

希望對你有幫助，謝謝！
回复
即時報告
0
0
沙欣沙
沙欣沙
網站主持人對此評論進行了最小化
主席先生，
如何根據頻率區分數據中給出的不同顏色？
在非常大的數據中，重複給出相同的顏色而不考慮它們的頻率。
回复
0
0
天陽
天陽     沙欣沙
網站主持人對此評論進行了最小化
抱歉，您能否提供更詳細的信息，您可以在此處附上屏幕截圖。
感謝您！
回复
即時報告
0
0
問人
問人
網站主持人對此評論進行了最小化
您好，我有 Excel 2016，alt+F11 是否可以調出 Microsoft VB？ Microsoft Visual Basic 是免費軟件嗎？ 謝謝你。
回复
0
0
天陽
天陽     問人
網站主持人對此評論進行了最小化
嗨，
如果您無法通過按住 Alt + F11 鍵來激活 Microsoft VB 窗口，您可以單擊 Developer > Visual Basic 將其打開。

請嘗試一下，謝謝！
查看附件 (1 / 5）
回复
即時報告
0
0
塞利姆
塞利姆
網站主持人對此評論進行了最小化
如果我只想填充兩種顏色，比如說黃色和紅色，重複。 需要明確的是，在本頁的示例中，“Rachel”是黃色的，Rose 是紅色的，Sussies 是黃色的，Tedi 是紅色的。
回复
0
0
天陽
天陽     塞利姆
網站主持人對此評論進行了最小化
你好，塞利姆，
以下代碼可能會解決您的問題，請嘗試。

子 ColorCompanyDuplicates()
'更新通過 Extendoffice 20170504
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xChar 調暗為字符串
將 xCellPre 調暗為範圍
將 xRgTemp 調暗為範圍
將 xCIndex 變暗
暗淡 xCol 作為集合
暗淡我只要
在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
xCIindex = 3
設置 xCol = 新集合
對於 xRg 中的每個 xCell
在錯誤恢復下一頁
xCol.Add xCell, xCell.Text
如果 Err.Number = 457 那麼
設置 xCellPre = xCol(xCell.Text)
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 則
MsgBox "太多重複的公司！", vbCritical, "Kutools for Excel"
退出小組
其他
xCell.Interior.ColorIndex = xCIndex
設置 xRgTemp = xCell
xCIndex = IIf(xRgTemp.Interior.ColorIndex = 3, 4, 3)
如果結束
在錯誤轉到0
下一頁
END SUB

希望它可以幫助你！
回复
即時報告
0
0
塞利姆
塞利姆     天陽
網站主持人對此評論進行了最小化
這正是我想要的。 非常感謝，天陽。
回复
0
0
波波
波波
網站主持人對此評論進行了最小化
有沒有辦法突出顯示整行而不是 1 列？
回复
0
0
天陽
天陽     波波
網站主持人對此評論進行了最小化
嗨，波波，
要根據重複的單元格值突出顯示整行，可以應用以下 VBA 代碼：

子 ColorCompanyDuplicates()
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xChar 調暗為字符串
將 xCellPre 調暗為範圍
將 xCIndex 變暗
暗淡 xCol 作為集合
暗淡我只要
在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
xCIindex = 2
設置 xCol = 新集合
對於 xRg 中的每個 xCell
在錯誤恢復下一頁
xCol.Add xCell, xCell.Text
如果 Err.Number = 457 那麼
xCIndex = xCIndex + 1
設置 xCellPre = xCol(xCell.Text)
如果 xCellPre.Interior.ColorIndex = xlNone 那麼 xCellPre.EntireRow.Interior.ColorIndex = xCIndex
xCell.EntireRow.Interior.ColorIndex = xCellPre.EntireRow.Interior.ColorIndex
ElseIf Err.Number = 9 則
MsgBox "太多重複的公司！", vbCritical, "Kutools for Excel"
退出小組
如果結束
在錯誤轉到0
下一頁
END SUB

請嘗試一下，希望對您有所幫助！
回复
即時報告
0
0
侯賽因
侯賽因     天陽
網站主持人對此評論進行了最小化
如何突出顯示行的範圍？
回复
0
0
天陽
天陽     侯賽因
網站主持人對此評論進行了最小化
你好，侯賽因，
可能下面的代碼可以幫到你，請嘗試一下。

子 ColorCompanyDuplicates()
'更新通過 Extendoffice
將 xRg、xRgRow 調暗為範圍
將 xTxt、xStr 調暗為字符串
暗淡 xCell，xCellPre 作為範圍
將 xCIndex 變暗
暗淡 xCol 作為集合
暗淡我只要
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
xCIindex = 2
設置 xCol = 新集合
對於 I = 1 到 xRg.Rows.Count
在錯誤恢復下一頁
設置 xRgRow = xRg.Rows(I)
對於 xRgRow.Columns 中的每個 xCell
xStr = xStr & xCell.Text
下一頁
xCol.Add xRgRow, xStr
如果 Err.Number = 457 那麼
xCIndex = xCIndex + 1
設置 xCellPre = xCol(xStr)
如果 xCellPre.Interior.ColorIndex = xlNone 那麼 xCellPre.Interior.ColorIndex = xCIndex
xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 則
MsgBox "太多重複的公司！", vbCritical, "Kutools for Excel"
退出小組
如果結束
在錯誤轉到0
xStr = ""
下一頁
END SUB
回复
即時報告
0
0
卡拉
卡拉     天陽
網站主持人對此評論進行了最小化
驚人！！ 這對我幫助很大！
如果我也需要突出單個的？ 我怎樣才能做到這一點？
回复
0
0
天陽
天陽     卡拉
網站主持人對此評論進行了最小化
你好，卡拉

要突出顯示包括唯一行在內的行，請應用以下 VBA 代碼：
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg, xRgRow As Range
Dim xTxt, xStr As String
Dim xCell, xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim xOnlyIndex
Dim I As Long
If ActiveWindow.RangeSelection.Count > 1 Then
    xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
    xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For I = 1 To xRg.Rows.Count
    On Error Resume Next
    Set xRgRow = xRg.Rows(I)
    For Each xCell In xRgRow.Columns
        xStr = xStr & xCell.Text
    Next
    xCol.Add xRgRow, xStr
    If err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xStr)
        If xCellPre.Interior.ColorIndex = xlNone Then
            xCellPre.Interior.ColorIndex = xCIndex
        Else            
        End If
        xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
    ElseIf err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
    End If    
    On Error GoTo 0
    xStr = ""
Next
For Each xCellPre In xCol
    If xCellPre.Interior.ColorIndex = xlNone Then
        xCIndex = xCIndex + 1
        xCellPre.Interior.ColorIndex = xCIndex
    End If
Next
End Sub

請嘗試，希望對您有所幫助！
回复
即時報告
0
0
卡拉
卡拉     天陽
網站主持人對此評論進行了最小化
是的天陽！ 你搖滾！ 😀
我們可以突出顯示整行而不是只突出列嗎？

對不起，如果我很生氣，但你真的幫了我很多！
回复
0
0
天陽
天陽     卡拉
網站主持人對此評論進行了最小化
你好，卡利亞，
如果需要突出顯示整行，只需在彈出的對話框中選擇數據范圍時選擇整行範圍即可。
請嘗試，謝謝！
即時報告
0
0
卡拉
卡拉     天陽
網站主持人對此評論進行了最小化
對不起，我不能😟
我認為這是不正確的，因為代碼在列中有效，當我選擇行時，它們被突出顯示，但不遵循前面的標準。

您之前共享的代碼（僅用於重複）可以完美運行。
回复
0
0
瓦西爾
瓦西爾
網站主持人對此評論進行了最小化
有沒有辦法將腳本更改為（查看）表數組而不是列？ 例如 F2:BC117。
感謝您！
回复
0
0
天陽
天陽     瓦西爾
網站主持人對此評論進行了最小化
你好，瓦西爾，
要突出顯示單元格範圍內的重複值，請嘗試以下 vba 代碼：

子 ColorCompanyDuplicates()
'更新通過 Extendoffice
將 xRg、xRgRow 調暗為範圍
將 xTxt、xStr 調暗為字符串
暗淡 xCell，xCellPre 作為範圍
將 xCIndex 變暗
暗淡 xCol 作為集合
暗淡我只要
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
Set xRg = Application.InputBox("請選擇數據范圍：", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是，則退出 Sub
xCIindex = 2
設置 xCol = 新集合
對於 I = 1 到 xRg.Rows.Count
在錯誤恢復下一頁
設置 xRgRow = xRg.Rows(I)
對於 xRgRow.Columns 中的每個 xCell
xStr = xStr & xCell.Text
下一頁
xCol.Add xRgRow, xStr
如果 Err.Number = 457 那麼
xCIndex = xCIndex + 1
設置 xCellPre = xCol(xStr)
如果 xCellPre.Interior.ColorIndex = xlNone 那麼 xCellPre.Interior.ColorIndex = xCIndex
xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 則
MsgBox "太多重複的公司！", vbCritical, "Kutools for Excel"
退出小組
如果結束
在錯誤轉到0
xStr = ""
下一頁
END SUB

希望它可以幫助你。
回复
即時報告
0
0
普里亞
普里亞
網站主持人對此評論進行了最小化
我是 VBA 新手。 有沒有什麼辦法，我們不需要一遍又一遍地運行宏，即使新單元格被複製到宏被編程的列中，它也會自動突出顯示？
回复
0
0
杏裡
杏裡
網站主持人對此評論進行了最小化
這真的很棒，但是在第 66 行（9 種顏色）之後著色停止了。 我該如何擴展？
回复
0
0
天陽
天陽     杏裡
網站主持人對此評論進行了最小化
你好，杏裡，
上面的代碼在我的工作表中運行良好，我在 300 行中對其進行了測試。
請再試一次。 或者您可以將您的工作簿文件發送到我的電子郵件帳戶。
我的郵箱是：skyyang@extendoffice.COM
回复
即時報告
0
0
布魯斯·羅
布魯斯·羅     天陽
網站主持人對此評論進行了最小化
colorindex 設置有問題，如果你的 sheet 中有 56 行數據，xCindex 會超過 56，系統會忽略這句話：
如果 xCellPre.Interior.ColorIndex = xlNone 那麼 xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
我更正程序如下：\
如果 Err.number=457 那麼
如果 xCellPre.Text<>xCell.Text 則
xCindex=xCindex+1
ENDIF
放.....
回复
即時報告
0
0
艾哈邁德
艾哈邁德     天陽
網站主持人對此評論進行了最小化
你好，
我的 excel 表有 11000 行數據。
如何擴展它以突出顯示該長列中的所有重複項。

它停在第 77 行。

謝謝，

AK
回复
0
0
hidayat_wijaya
hidayat_wijaya
網站主持人對此評論進行了最小化
這真的很棒，但是在第 76 行（5 種顏色）之後著色停止了。 我如何也可以擴展它？
回复
0
0
楊嘉樂
楊嘉樂
網站主持人對此評論進行了最小化
我的電子表格在 178 處也停止著色，我有超過 400 行。 你如何解決這個問題？
回复
0
0
天陽
天陽     楊嘉樂
網站主持人對此評論進行了最小化
你好，卡羅爾，
您能否將您的工作簿發送到我的電子郵件地址，我可以幫助您找到問題。
我的電子郵件地址是：skyyang@extendoffice.COM
回复
即時報告
0
0
這裡還沒有評論
載入更多
留下你的意見
客人
以訪客身份發帖
登入
×
評價此帖子：
重設
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護