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 Sub3. 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.
Bu yardımcı programın ücretsiz deneme sürümünü (30-gün) kullanmak istiyorsanız, lütfen indirmek için tıklayın ve ardından yukarıdaki adımlara göre işlemi uygulamak için gidin.
Kutools for Excel ile yinelenenleri kaldırın ancak ilk örneği koruyun
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin