Excel'de yinelenenleri kaldırmak ancak ilk örneği korumak nasıl yapılır?

Diyelim ki, çalışma sayfanızda bazı yinelenenler içeren bir değer listesi var ve şimdi yinelenenleri kaldırmalısınız ancak yinelenen değerin bulunduğu ilk satırı korumalısınız. Bu makalede, Excel'de yinelenenleri kaldırmanıza ancak ilk örneği korumanıza olanak tanıyan iki yöntemi göstereceğiz.

VBA kodu ile yinelenenleri kaldırın ancak ilk örneği koruyun
Kutools for Excel ile yinelenenleri kaldırın ancak ilk örneği koruyun

VBA kodu ile yinelenenleri kaldırın ancak ilk örneği koruyun

Yinelenenleri kaldırmak ancak bir sütunda ilk örneği korumak için aşağıdaki VBA kodunu çalıştırabilirsiniz.

1. Microsoft Visual Basic for Applications iletişim kutusunu açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications iletişim kutusunda, Ekle > Modül'e tıklayın. Ardından aşağıdaki kodu kod penceresine kopyalayıp yapıştırın.

VBA kodu: yinelenenleri kaldırın ancak ilk örneği koruyun

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	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)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Açılan KutoolsforExcel iletişim kutusunda, yinelenenleri kaldırmak istediğiniz alanı seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Şimdi, ilk kayıtlar hariç tüm yinelenen satırlar seçili sütun aralığından kaldırılmış olabilir. Ekran görüntüsüne bakın:

Kutools for Excel ile yinelenenleri kaldırın ancak ilk örneği koruyun

VBA kodunun yanı sıra, Excel eklentisi olan Kutools for Excel'in Yinelenen ve Benzersiz Hücreleri Seç yardımcı programını kullanarak yinelenenleri kolayca kaldırabilir ve Excel'de ilk örnekleri koruyabilirsiniz.

1. Yinelenenleri kaldırmak ancak ilk örnekleri korumak istediğiniz alanı seçin. Ardından Kutools > Seç > Yinelenen ve Benzersiz Hücreleri Seç'e tıklayın.

2. Yinelenen ve Benzersiz Hücreleri Seç iletişim kutusunda, Yinelenenler (İlk hariç) seçeneğini işaretleyin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

3. Takip eden Yinelenen ve Benzersiz Hücreleri Seç iletişim kutusunda Tamam'a tıklayın.

4. Şimdi ilk örnekler dışında yinelenenler seçili durumdadır, lütfen seçili yinelenenleri kaldırmak için Sil tuşuna basın.

Not: Eğer yinelenen satırları silmek istiyorsanız, sadece Yinelenen ve Benzersiz Hücreleri Seç iletişim kutusundaki Tüm satırı seç seçeneğini işaretlemeniz gerekir ve ardından tüm yinelenen satırları kaldırmak için sağ tıklama menüsündeki Sil komutunu uygulayın.

Kutools for Excel ile yinelenenleri kaldırın ancak ilk örneği koruyun