Excel'deki bir sütun aralığındaki benzersiz değerlerin bir listesini dinamik olarak nasıl çıkarabilirim?
Değerlerin düzenli olarak değiştiği bir sütun aralığı için ve nasıl değiştiğine bakılmaksızın her zaman aralıktan tüm benzersiz değerleri almanız gerekir. Benzersiz değerlerin dinamik bir listesi nasıl yapılır? Bu makale size bununla nasıl başa çıkacağınızı gösterecek.
Aşağıda gösterilen ekran görüntüsü gibi, B2: B9 aralığından dinamik olarak benzersiz değerlerin bir listesini çıkarmanız gerekir. Lütfen aşağıdaki dizi formülünü deneyin.
1. D2 gibi boş bir hücre seçin, aşağıdaki formülü içine girin ve Ctrl + vardiya + Keşfet aynı anda anahtarlar. (B2: B9, benzersiz değerleri çıkarmak istediğiniz sütun verileridir, D1, formülünüzün bulunduğu yukarıdaki hücredir)
2. D2 hücresini seçmeye devam edin, ardından belirtilen aralıktaki tüm benzersiz değerleri almak için Dolgu Tutamaçını aşağı sürükleyin.
Şimdi B2: B9 sütun aralığındaki tüm benzersiz değerler çıkarılır. Bu aralıktaki değerler değiştiğinde, benzersiz değer listesi anında dinamik olarak değiştirilecektir.
Excel'de bir aralıktaki tüm benzersiz değerleri kolayca seçin ve vurgulayın:
The Yinelenen ve Benzersiz Hücreleri Seçin yarar Kutools for Excel Tüm benzersiz değerleri (ilk kopyaları dahil) veya yalnızca bir kez görünen benzersiz değerleri ve ayrıca aşağıdaki ekran görüntüsü gibi ihtiyacınız olan yinelenen değerleri kolayca seçmenize ve vurgulamanıza yardımcı olabilir.
Kutools for Excel'i şimdi indirin! (30- günlük ücretsiz iz)
Aşağıdaki VBA koduyla bir sütun aralığından dinamik olarak benzersiz değerlerin bir listesini de çıkarabilirsiniz.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp modül pencere.
VBA kodu: Bir aralıktan benzersiz değerlerin bir listesini çıkarın
Sub CreateUniqueList() Dim xRng As Range Dim xLastRow As Long Dim xLastRow2 As Long Dim I As Integer On Error Resume Next Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8) If xRng Is Nothing Then Exit Sub On Error Resume Next xRng.Copy Range("D2") xLastRow = xRng.Rows.Count + 1 ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row For I = 1 To xLastRow2 If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete End If Next End Sub
not: Kodda, D2, benzersiz değer listesini bulacağınız hücredir. İhtiyacınız olduğu gibi değiştirebilirsiniz.
3. Çalışma sayfasına geri dönün, Ekle > Şekiller > Dikdörtgen. Ekran görüntüsüne bakın:
4. Çalışma sayfanıza bir dikdörtgen çizin ve üzerinde görüntülemeniz gereken bazı kelimeleri girin. Ardından sağ tıklayın ve seçin Makro Ata sağ tıklama menüsünden. İçinde Makro Ata iletişim kutusunu seçin. BenzersizList oluştur içinde Makro adı ve ardından OK buton. Ekran görüntüsüne bakın:
5. Şimdi dikdörtgen düğmesine tıklayın, a Kutools for Excel iletişim kutusu açılır, lütfen aralığı ayıklamanız gereken benzersiz değerleri içeren aralığı seçin ve ardından OK düğmesine basın.
Bundan sonra, benzersiz değer listesini otomatik olarak güncellemek için yukarıdaki 5. adımı tekrarlayabilirsiniz.
İlgili Makaleler:
- Excel'de dinamik bir aylık takvim nasıl oluşturulur?
- Excel'deki hücre değerine göre hücreye dinamik olarak resim veya resim nasıl eklenir?
- Excel'de başka bir sayfaya dinamik köprü nasıl oluşturulur?