Excel'de bir sütun aralığından benzersiz değerler listesini dinamik olarak nasıl çıkarabilirsiniz?
Değerlerin düzenli olarak değiştiği bir sütun aralığınız varsa ve bu aralıktaki tüm benzersiz değerleri, ne kadar değişirse değişsin, her zaman almanız gerekiyor. Dinamik bir benzersiz değerler listesi nasıl oluşturulur? Bu makale size bununla nasıl başa çıkacağınızı gösterecek.
Formülle bir sütun aralığından benzersiz değerler listesini dinamik olarak çıkarın
VBA kodu ile bir sütun aralığından benzersiz değerler listesini dinamik olarak çıkarın
Formülle bir sütun aralığından benzersiz değerler listesini dinamik olarak çıkarın
Aşağıdaki ekran görüntüsünde gösterildiği gibi, B2:B9 aralığından benzersiz değerler listesini dinamik olarak çıkarmak istiyorsunuz. 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 + Shift + Enter tuşlarına aynı anda basın. (B2:B9, benzersiz değerleri çıkarmak istediğiniz sütun verileridir; D1, formülünüzün bulunduğu üst hücredir)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. D2 hücresinin seçilmesini sürdürün, ardından Belirtilen Aralıktaki tüm benzersiz değerleri almak için Doldurma Tutamacını aşağı doğru sürükleyin.
Şimdi B2:B9 sütun aralığındaki tüm benzersiz değerler çıkarıldı. Bu aralıktaki değerler değiştiğinde, benzersiz değerler listesi anında dinamik olarak değişecektir.
Excel'de bir aralıkta tüm benzersiz değerleri kolayca seçin ve vurgulayın:
Bu Yinelenen & Benzersiz Hücreleri Seçme araçları Kutools for Excel yardımıyla, tüm benzersiz değerleri (ilk yinelenenleri de dahil) veya yalnızca bir kez görünen benzersiz değerleri kolayca seçebilir ve vurgulayabilirsiniz. Ayrıca, aşağıdaki ekran görüntüsünde gösterildiği gibi ihtiyacınız olan yinelenen değerleri de seçebilirsiniz.
Kutools for Excel'i şimdi indirin! (30-günlük ücretsiz deneme)
VBA kodu ile bir sütun aralığından benzersiz değerler listesini dinamik olarak çıkarın
Ayrıca, aşağıdaki VBA kodu ile bir sütun aralığından benzersiz değerler listesini dinamik olarak çıkarabilirsiniz.
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: Bir aralıktan benzersiz değerler listesi çıkar
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ğerler listesini yerleştireceğiniz hücredir. İhtiyaçlarınıza göre değiştirebilirsiniz.
3. Çalışma sayfasına geri dönün, Ekle > Şekiller > Dikdörtgen'e tıklayın. Ekran görüntüsüne bakın:
4. Çalışma sayfanızda bir dikdörtgen çizin, ardından üzerine görüntülemek istediğiniz kelimeleri girin. Ardından sağ tıklayın ve sağ tıklama menüsünden Makro Ata'yı seçin. Makro Ata iletişim kutusunda, Makro adı kutusunda CreateUniqueList'i seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
5. Şimdi dikdörtgen düğmeye tıklayın, bir Kutools for Excel iletişim kutusu açılır, lütfen çıkarmak istediğiniz benzersiz değerleri içeren aralığı seçin ve ardından Tamam düğmesine tıklayın.
Artık yukarıdaki 5. adımı tekrarlayarak benzersiz değerler listesini otomatik olarak güncelleyebilirsiniz.
İlgili makaleler:
- Excel'de dinamik aylık takvim nasıl oluşturulur?
- Excel'de hücre değerine göre dinamik olarak resim veya fotoğraf nasıl eklenir?
- Excel'de başka bir çalışma sayfasına dinamik köprü nasıl oluşturulur?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!