Excel'de farklı renklerde yinelenen değerleri nasıl vurgulayabilirim?
Excel'de, bir sütundaki yinelenen değerleri tek renkle kolayca vurgulayabiliriz. Koşullu biçimlendirme, ancak bazen, aşağıdaki ekran görüntüsü gibi, kopyaları hızlı ve kolay bir şekilde tanımak için yinelenen değerleri farklı renklerde vurgulamamız gerekir. Bu görevi Excel'de nasıl çözebilirsin?
VBA kodunu kullanarak farklı renklere sahip bir sütundaki yinelenen değerleri vurgulayın
VBA kodunu kullanarak farklı renklere sahip bir sütundaki yinelenen değerleri vurgulayın
Aslında, bu işi Excel'de bitirmemizin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu size yardımcı olabilir, lütfen aşağıdakileri yapın:
1. Yinelenenleri farklı renklerle vurgulamak istediğiniz değerler sütununu seçin, ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Farklı renklerde yinelenen değerleri vurgulayın:
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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve bir komut kutusu size yinelenen değerleri vurgulamak istediğiniz veri aralığını seçmenizi hatırlatacaktır, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi, tüm yinelenen değerler farklı renklerde vurgulanmıştır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!