Excel'de yinelenen değerleri farklı renklerle nasıl vurgularsınız?

Excel'de, bir sütundaki yinelenen değerleri tek bir renkle vurgulamak, Koşullu Biçimlendirme kullanılarak oldukça kolaydır. Ancak, daha kolay tanımlama için yinelenenleri farklı renklerle vurgulamanız gereken durumlar olabilir; bu, ekran görüntüsünde gösterildiği gibi. Bu kılavuz, bu görevi VBA kodu kullanarak nasıl gerçekleştireceğinizi açıklıyor.
VBA kodu kullanarak bir sütundaki yinelenen değerleri farklı renklerle vurgulayın
VBA kodu kullanarak bir sütundaki yinelenen değerleri farklı renklerle vurgulayın
Excel'de bunu gerçekleştirmek için doğrudan bir yol yoktur, ancak aşağıdaki VBA kodu yardımcı olabilir. Şu adımları izleyin:
1. Farklı renklerle vurgulamak istediğiniz yinelenen değerlerin bulunduğu sütunu seçin ve ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ekle Insert > Module, ve aşağıdaki kodu Module Penceresine yapıştırın.
VBA kodu: Yinelenen değerleri farklı renklerde vurgula:
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. Bu kodu çalıştırmak için F5 tuşuna basın. Yinelenen değerleri vurgulamak için veri aralığını seçmenizi isteyen bir uyarı kutusu belirecek, ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın ve tüm yinelenen değerler farklı renklerle vurgulanacak, ekran görüntüsüne bakın:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!