Note: The other languages of the website are Google-translated. Back to English

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.

Formülü olan bir sütun aralığından dinamik olarak benzersiz değerlerin bir listesini çıkarın
VBA kodu ile bir sütun aralığından dinamik olarak benzersiz değerlerin bir listesini çıkarın


Formülü olan bir sütun aralığından dinamik olarak benzersiz değerlerin bir listesini çıkarın

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)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

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)


VBA kodu ile bir sütun aralığından dinamik olarak benzersiz değerlerin bir listesini çıkarın

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:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (35)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eğitim için teşekkürler. Formül yöntemini kullanarak, bir kategori niteleyicisi eklemek isteseydiniz formülü nasıl değiştirirdiniz? C sütununda, öğenin meyve mi yoksa sebze mi olduğunu ayırt ettiğinizi söyleyin. Yalnızca benzersiz meyveleri sıralamak ve sebzeleri hariç tutmak için kodu nasıl değiştirirsiniz? (LIST ARALIĞI, "CATEGORY") ikinci sayım kriterlerini kullanarak COUNTIF'i EĞERSAY ile değiştirmeyi denedim, ancak boş dönüyor. Dizimi genişletmem ve DÜŞEYARA eklemem gerekir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'de iyiyim ama gerçekten yukarıdaki formülün nasıl ve neden işe yaradığı konusunda kafamı sarmaya çalışıyorum (onu ne için kullandığım için işe yarıyor ama nedenini anlamalıyım). Bazen dizileri kullanırken biraz kafam karışıyor, bu yüzden salak terimlerle herhangi bir açıklama son derece yardımcı olabilir Saygılar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu formül eski ve çalışmıyor. Kelimenin tam anlamıyla, bu formülü çalıştırıp çalıştıramayacağımı görmek için tam olarak bu excel sayfasını ayarladım ve çalışmıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey adam,
Hangi Office sürümünü kullanıyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
{=INDEX($Q$3:$Q$263,MATCH(0,COUNTIF(V$2:V2,$Q$3:$Q$263),0))} - bunun başka bir siteden çalıştığını buldu...

Dizi işlevini (küme parantezleri) almak için Ctrl+Shift+Enter tuşlarını kullanın. Formülleri #NA gösterilene kadar sürükleyip yapıştırın. Veri kümem Sütun-Q'daydı, sürekli olarak aynı sütun boyunca uzanan Sütun-V'deki benzersiz listesinde olup olmadığını görmek için karşılaştırıldı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Güzel gün.
Lütfen Q sütununun tüm benzersiz değerlerini abobv formülüyle listeleyin ve ardından Q sütunundaki benzersizlerin aynı satırdaki sütun V ile karşılaştırılıp karşılaştırılmadığını karşılaştırmak için =IF(D2=V1,"Eşleşme", "Eşleşme yok") formülünü kullanın. .
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba ve yardımın için teşekkür ederim.

Tam olarak bu işlevselliğe ihtiyacım var, ancak "benzersiz değerler" listemin satırlar yerine sütunlar arasında genişletilmesi gerekiyor, bu nedenle satırlardan aşağı doğru genişleyen liste benim için çalışmayacak.

Sütunlar boyunca sürüklerken "benzersiz değerler" listesini genişletmek için bu formülü nasıl değiştirebilirim?

Telafi etmek()?
Transpoze()?
Satır yerine sütuna bir referansla birleştirilmiş bir mutlak referanslar dizisi ile Dolaylı()?


Tekrar teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Ryan,
Bu formül =EĞERHATA(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$2:D2, $B$2:$B$9), 0)),"") + Ctrl + Shift + Enter olabilir sorunu çözmenize yardımcı olur.
Aşağıdaki ekran görüntüsüne bakın:
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ayrıca, herhangi bir nedenle, orijinal formül şunları sağladı:
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

"dairesel referans" uyarısı verir ve hesaplamaz..
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Ryan,
Hangi Office sürümünü kullanıyorsunuz? Formül, Office 2016 ve 2013'te iyi çalışıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu daha önce yaşadım - düzeltmem, formülü D1 hücresine giriyor olmamdı (kullandığım çalışma sayfasındaki eşdeğer). $D:$1 hangi hücreye karşılık geliyorsa, onu aşağıdaki hücreye - D2'ye girmeniz gerekir. Hatayı bu yüzden almadıysan özür dilerim
Bu yorum sitedeki moderatör tarafından en aza indirildi
MacOS için Excel 2016 ile çalışmak üzere VBA seçeneğini edinme konusunda herhangi bir ipucu var mı? Adımları takip ettim; ancak, makroyu çalıştırdığımda hiçbir şey olmuyor. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Jones,
Lütfen aşağıdaki VBA kodunu deneyin ve sizin için çalışıp çalışmadığını bana bildirin. Teşekkür ederim!

Alt CreateUniqueList()
Aralık olarak XRng Dim
xLastRow'u İstediğiniz Kadar Uzunlaştırın
xLastRow2 Olarak Uzun Süre Karartın
Tamsayı Olarak Dim I
' Hatada Devam Sonraki
Set xRng = Application.InputBox("Lütfen aralığı seçin:", "Kutools for Excel", Selection.Address, , , , , 8)
xRng Hiçbir Şey Değilse, Sub'dan Çıkın
On Error Resume Next
xRng.Kopyalama Aralığı("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
I = 1 ila xLastRow2 için
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Sonra
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
Eğer son
Sonraki
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,
Benzersiz değerler listesinin VB sürümünü kullanmaya çalışıyorum ve bir sorunla karşılaşıyorum.
Benzersiz bir değerler sütunu oluşturmak istediğim aralık, farklı sekmelere başvuran tüm formüllerdir.
Formül yerine aktarılacak değer nasıl elde edilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili mike,
Lütfen formül referanslarınızı mutlak değere çevirin ve ardından VB betiğini uygulayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formülümün sütun adlarına atıfta bulunması ve mutlak değere dönüştürülememesi dışında aynı sorunu yaşıyorum.
Formülü değil değerleri yapıştırmak için vba'yı nasıl değiştiririm?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tarih sadece 9/12 ise dinamik listeye eklemek istediğiniz gibi birden fazla kriteri nasıl eklersiniz?

MAÇ formülünde "&" yi deniyorum ama çalışmıyor.

Örneğin, örneğinize göre:
=EĞERHATA(INDEX($B$2:$B$9, MATCH(0 & B4,COUNTIF($D$1:D1, $B$2:$B$9) & $A$2:$A$9, 0)),"" )
Bu bir hata verir veya kopyalar oluşturur.

Alternatif olarak, çalışmasını sağlayamasam da "+" nın işe yarayabileceğini okudum. Veya KÜÇÜK kullanarak.

Fikirler?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Zac,
Maalesef bu konuda yardımcı olamam, sorunuzu forumumuza gönderebilirsiniz: https://www.extendoffice.com/forum.html uzmanımızdan daha fazla Excel desteği almak için.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İkinci bir değişkeni nasıl eklersiniz? Örneğin, benzer bir değeri başka bir sütunda paylaşan tüm benzersiz öğelerin bir sütunda olmasını istiyorum. Örneğinizde, ürün, et vb. değerlere sahip olan "Departman" başlıklı 3. bir sütun hayal edin. Bunların hepsinin Ürün olduğunun farkındayım, ancak umarım demek istediğimi anlamışsınızdır. CountIF formülünü bir ÇOKEĞERSAY olarak mı değiştirirsiniz yoksa başka bir şekilde mi değiştirirsiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Selam Matt
Lütfen bu formülü deneyin =EĞER(ISNA(DÜŞEYARA(A2,$C$2:$C$13,1,YANLIŞ))),"Evet","").
Karşılaştırılan iki listenin Sütun A ve Sütun C olduğunu varsayarsak, benzersiz değerler yalnızca Sütun A'da kalır, ancak Sütun C'de kalmazsa, B sütununda Evet görüntülenecektir; B Sütununda hiçbir şey döndürmezseniz, karşılık gelen değerin hem Sütun A hem de Sütun C'de kalacağı anlamına gelir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Cevabınız için teşekkürler .. ama EVET görüntüleniyorsa bu benzersiz değeri çıkarmak için sıcak .. benzersiz değeri farklı sütunda çekmek için bana formül önerir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu bir Mac'te Excel'in en son sürümünde bin satırlık bir excel sayfası için yaparsam, asla geri dönmüyor. İlk satır çalışıyor, ancak kopyaladığımda, excel iki saatten fazla bir süredir değer döndürmeyen bir hesaplama moduna giriyor.

2 veya 50 benzersiz değer döndürecek büyük listeler (60k satıra kadar) için bunun nasıl yapılacağı hakkında herhangi bir fikriniz var mı?

Bunu "Sayılar" uygulamasında alay ettim ve orada mükemmel çalışıyor, hesaplaması sadece birkaç dakika sürüyor. Excel'de o kadar uzun sürüyor ki, tamamlanıp tamamlanmayacağını merak ediyorum. Ne olacağını görmek için bir gecede "çalışmasına" izin vermeyi planlıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hesaplama seçeneklerinizi kontrol edin. Otomatik olarak ayarlanması gerekiyor. Dosya > Seçenekler > Formüller > Hesaplama seçenekleri > Çalışma Kitabı Hesaplaması (Otomatik seçim)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Farklı büyüklükteki veri kümelerini girebilmek ve hiçbir şeyi ayarlamak zorunda kalmamak için formülü gerçek verilerimin ötesine sürüklemeye çalışıyorum. Ancak, gerçek verilerimin bitiminden sonraki son satır her zaman "0" döndürür. Bitişik bir sütunda başka bir şey için benzersiz değerleri kullanıyorum ve 0, son değerin tekrarlanmasına neden oluyor (0'ı sildiğimde değer artık tekrarlanmıyor). Bunun nasıl düzeltileceği hakkında bir fikriniz var mı? Ayrıca Office 365 Business kullanıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yardımın için teşekkür ederim.
Şimdi, değerlerimin alfabetik olarak da sıralanmasını nasıl sağlayabilirim? (Filtreyi ana masamda kullanmak istemiyorum)
EĞERSAY yerine EĞERSAY kullanmalı mıyım?
YARDIM Lütfen
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Alexis,
Üzgünüz, çıkarılan değeri formülle aynı anda alfabetik olarak sıralayamıyorum. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika =EĞERHATA(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"") formülünü kullanıyorum. bir sütun için ama verilerim bir dizi sütun ve satıra yayılmış durumda. Formülü tüm alanı içerecek şekilde düzenleyebilir miyim? Verilerim AC4'ten AR60'a kadar yaşıyor ...
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA Kodunu ve formülü deniyorum. VBA kodu çok iyi çalışıyor ama makrolu bir dosya tutamıyorum. Ama sorun şu ki formülü çalıştıramıyorum. Bir fikri olan var mı? Teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Charlotte,
Yorumun için teşekkür ederim. Çalışma kitabını Excel Makro Etkin Çalışma Kitabı olarak kaydederek, dosyayı ileride kullanmak üzere makroyla birlikte saklayabilirsiniz.
Formül sorunu için lütfen verilerinizin ekran görüntüsünü verir misiniz? Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
çok teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
vba kodunun başka bir formülün kullanıldığı bir aralık için çalışması nasıl yapılır? BI sütununda D ve E sütunlarına atıfta bulunan bir formül bulunur.
Kodu L sütununa uygula (diyelim ki), (koddaki hücreleri düzgün bir şekilde değiştirerek) kullanırsam, makro M ve N sütunlarına uygulanan formülü döndürür... O zaman çalışır, ama istediğim gibi değil! B sütunundaki değerler nasıl tutulur? teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ik heb gemerkt dat de 'formül'-yöntem erg traag werkt bij grote veri kümeleri. En iyi alternatif, het gebruik van een draaitabel'dir. Kies ve en iyiler, en iyiler ve en iyiler, unieke waarden ile tanıştı. Ekstra'nın krijgt "(leeg)" bijvoorbeeld'i ile ilgilen. Je kunt deze er vervolgens uitfilteren. Helaas kun je maar op 1 kriter filtresi. Ook daar zijn wel weer olossingen voor, maar dat wat karmaşıktır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İki ayrı sütun aralığı (B2:B9) ve (D2:D9) kullanmak dışında, aynı şeyi yapabilmek istiyorum, bu mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Anthony,
Sonuçları orijinal verilerle aynı sütuna yerleştirebilirsiniz. Bu durumda B sütunu gibi.
Ancak formülde sonuç hücresinin en üstteki hücresine aşağıdaki gibi başvurmanız gerekir.
=EĞERHATA(INDEX($B$2:$B$9, MATCH(0,COUNTIF($B$11:B11, $B$2:$B$9), 0)),"") + Ctrl + Shift + Enter
Bu yorum sitedeki moderatör tarafından en aza indirildi
En iyi prosedürler ve filtreler, hızlı bir şekilde uygulandı.

1.EN ESTE EJEMPLO los datos bir sökücü los duplicados estan en la col A de la fila 59 a la 239
2. se un criterio de filtrado en este caso en la fila d56 el mismo titulo de la lista bir kaldırıcıyı tanımlayın yinelenen kopyalar d57 la dejo en blanco
3. en iyi vez ejecutado se muestran los datos en la fila destino, que en mi caso fue la d59

Range("A59:A239").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("D56:D57"), CopyToRange:=Range("D59"), Unique:=True
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır