Excel'de yinelenenleri nasıl kaldırabilirsiniz ancak ilk örneği koruyabilirsiniz?
Diyelim ki çalışma sayfanızda bazı yinelenen değerler içeren bir liste var ve şimdi bu yinelenenleri kaldırmak, ancak yinelenen değerin bulunduğu ilk satırı korumak istiyorsunuz. Bu makalede, Excel'de yinelenenleri kaldırırken ilk örneği korumanız için iki yöntem göstereceğiz.
VBA koduyla Yinelenenleri Kaldır ancak ilk örneği koruyun
Kutools for Excel ile Yinelenenleri Kaldır ancak ilk örneği koruyun
VBA koduyla Yinelenenleri Kaldır ancak ilk örneği koruyun
Bir sütundaki yinelenenleri kaldırmak ancak ilk örneği korumak için aşağıdaki VBA kodunu çalıştırabilirsiniz.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications iletişim kutusunu açın.
2. Microsoft Visual Basic for Applications iletişim kutusunda, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki kodu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Yinelenenleri Kaldır 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 Kutools for Excel iletişim kutusunda, yinelenenleri kaldırmak istediğiniz aralığı seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Artık seçili sütun aralığındaki ilk kayıtlar dışındaki tüm yinelenen satırların kaldırıldığını görebilirsiniz. Ekran görüntüsüne göz atın:
Kutools for Excel ile Yinelenenleri Kaldır ancak ilk örneği koruyun
VBA kodunun yanı sıra, Excel'de yinelenenleri kolayca kaldırmak ve yalnızca ilk örnekleri korumak için Kutools for Excel eklentisinden Yinelenen/Benzersiz Hücreleri Seç yardımcısını da kullanabilirsiniz.
1. Yinelenenleri kaldırmak ancak ilk örnekleri korumak istediğiniz aralığı seçin. Ardından Kutools > Seç > Yinelenen/Benzersiz Hücreleri Seç seçeneğine tıklayın.
2. Yinelenen/Benzersiz Hücreleri Seç iletişim kutusunda, Yinelenen Değerler (İlk eşleşmeyi hariç tut) seçeneğini işaretleyin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
3. Sonraki Yinelenen/Benzersiz Hücreleri Seç iletişim kutusunda, Tamam düğmesine tıklayın.
4. Artık ilk örnekler dışında tüm yinelenenler seçildi; yinelenenleri kaldırmak için Sil tuşuna basın.
Not: Yinelenen satırları silmek istiyorsanız, Yinelenen/Benzersiz Hücreleri Seç iletişim kutusunda yalnızca Tüm Satırı Seç seçeneğini işaretleyin ve ardından sağ tıklama menüsünden Sil komutunu kullanarak tüm yinelenen satırları kaldırın.
Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
Kutools for Excel ile Yinelenenleri Kaldır ancak ilk örneği koruyun
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar