Kopyaları nasıl kaldırabilirim, ancak ilk örneği Excel'de nasıl tutabilirim?
Diyelim ki, çalışma sayfanızda bazı kopyaları içeren bir değer listesi var, şimdi, kopyaları kaldırmanız, ancak yinelenen değerin bulunduğu ilk satırı tutmanız gerekiyor. Bu makalede, size kopyaları kaldırmak için iki yöntem göstereceğiz, ancak ilk örneği Excel'de tutacağız.
Yinelenenleri kaldırın ancak ilk örneği VBA koduyla koruyun
Yinelenenleri kaldırın, ancak Kutools for Excel ile ilk örneği koruyun
Yinelenenleri kaldırın ancak ilk örneği VBA koduyla koruyun
Yinelenenleri kaldırmak, ancak ilk örneği bir sütunda tutmak için aşağıdaki VBA kodunu çalıştırabilirsiniz.
1. Basın Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic iletişim kutusu.
2. içinde Uygulamalar için Microsoft Visual Basic iletişim kutusunu tıklayın Ekle > modül. Ardından aşağıdaki kodu kopyalayıp kod penceresine yapıştırın.
VBA kodu: kopyaları kaldırın ancak ilk örneği saklayın
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. Basın F5 kodu çalıştırmak için anahtar. Haşhaşta KutoolsforExcel iletişim kutusunda, kopyaları kaldırmak istediğiniz aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Artık ilk kayıtların seçilen sütun aralığından kaldırılması dışında tüm yinelenen satırları görebilirsiniz. Ekran görüntüsüne bakın:
Yinelenenleri kaldırın, ancak Kutools for Excel ile ilk örneği koruyun
VBA kodunun yanında, Yinelenen ve Benzersiz Hücreleri Seçin yarar Kutools for Excel çiftleri kolayca kaldırmak, ancak ilk örnekleri Excel'de tutmak için eklenti.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Yinelenenleri kaldırmak ancak ilk örnekleri saklamak istediğiniz aralığı seçin. Sonra tıklayın Kutools > seç > Yinelenen ve Benzersiz Hücreleri Seçin.
2. içinde Yinelenen ve Benzersiz Hücreleri Seçin iletişim kutusunu seçin. Kopyalar (1'inci hariç) seçeneğini ve ardından OK buton. Ekran görüntüsüne bakın:
3. Aşağıda Yinelenen ve Benzersiz Hücreleri Seçin iletişim kutusunu tıklayın OK.
4. Şimdi ilk örnekler dışında kopyalar seçildi, lütfen Sil Seçili kopyaları kaldırmak için anahtar.
not: Yinelenen satırları silmek istiyorsanız, sadece kontrol etmeniz gerekir. Tüm satırları seç seçeneği Yinelenen ve Benzersiz Hücreleri Seçin iletişim kutusunu seçin ve ardından Sil Tüm yinelenen satırları kaldırmak için sağ tıklama menüsünün komutu.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
Yinelenenleri kaldırın, ancak Kutools for Excel ile ilk örneği koruyun
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!