Excel'de bir sütundaki yinelenen değerleri nasıl kaldırabilirim?

Genellikle çoğu kişi bir sütundan yinelenen değerleri kaldırmak ister; ancak bazen sütunda yalnızca bir kez görünen benzersiz değerleri kaldırmak isteyebilirsiniz. Bu öğretici, Excel’de bir sütundan benzersiz değerleri kaldırmak için kullanabileceğiniz pratik püf noktalarını açıklar.

Excel'de VBA ile benzersiz değerleri silme

Benzersiz değerleri Kutools for Excel ile silme

---

Excel'de VBA ile benzersiz değerleri silme

VBA kullanmak, bir sütundaki tüm benzersiz değerleri hızla silmenize olanak tanır.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini görüntüleyin.

2. Pencerede, yeni bir modül penceresi açmak için Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu bu modül penceresine kopyalayın.

VBA: Bir sütundaki yinelenen değerleri kaldırma.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. Tıklayın Çalıştırdüğmesine basarak VBA kodunu çalıştırın ve çalışma yapılacak bir aralık seçmek için bir KutoolsforExcelİletişim kutusu açılır. Ekran görüntüsüne göz atın:

4. Tamam düğmesine tıklayın; böylece tüm benzersiz değerler silinir.

---

Benzersiz değerleri Kutools for Excel ile silme

VBA ile aşina değilseniz, Excel’de benzersiz değerleri kaldırmak için Kutools for Excel’in “Yinelenen/Benzersiz Hücreleri Seç” özelliğini değerlendirebilirsiniz.

Kutools for Excel, 300'den fazla kullanışlı Excel aracıyla donatılmıştır. 30 gün boyunca sınırsız olarak ücretsiz deneyebilirsiniz.Şimdi Edinin

1. Benzersiz değerleri silmek istediğiniz sütunu seçin ve Kutools > Seç > Yinelenen/Benzersiz Hücreleri Seç seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Açılan iletişim kutusunda, Benzersiz Değerler seçeneğini işaretleyin ve ardından Tamam düğmesine tıklayarak bu iletişim kutusundan çıkın. Ekran görüntüsüne bakın:

3. Ardından yalnızca bir kez görünen tüm değerler seçilir. Sağ tıklayıp bağlam menüsünden Sil seçeneğine tıklayın. Ekran görüntüsüne bakın:

4. Sil iletişim kutusunda Tüm satır seçeneğini işaretleyin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Artık benzersiz değerlerin kaldırıldığını görebilirsiniz.

İpucu: Yalnızca hücre içeriklerini kaldırmak istiyorsanız, 3. adımda bağlam menüsünden İçerikleri Temizle seçeneğine tıklayabilirsiniz.

Yinelenen veya benzersiz hücreleri seçme hakkında daha fazla bilgi edinmek için buraya tıklayın.

---

İlgili Makaleler:

• Excel'de tüm yorumları silin
• Yinelenen satır öğesini Excel'den kaldırın

---