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

Excel'deki birden çok sütundan benzersiz değerler nasıl çıkarılır?

Birden fazla değere sahip birkaç sütununuz olduğunu varsayarsak, bazı değerler aynı sütunda veya farklı sütunda tekrarlanır. Ve şimdi her iki sütunda da yalnızca bir kez bulunan değerleri bulmak istiyorsunuz. Excel'deki birden çok sütundan benzersiz değerler çıkarmanız için herhangi bir hızlı numara var mı?


Dizi formülüyle birden çok sütundan benzersiz değerleri çıkarın

İşte bir dizi formülü, birden çok sütundan benzersiz değerleri çıkarmanıza yardımcı olabilir.

1. Değerlerinizi aralıkta varsayarak A2: C9, lütfen aşağıdaki formülü E2 hücresine girin:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

not: Yukarıdaki formülde, A2: C9 benzersiz değerleri çıkarmak istediğiniz hücre aralığını gösterir, E1: E1 sonucu yerleştirmek istediğiniz sütunun ilk hücresidir, $ 2: $ 9 satırların kullanmak istediğiniz hücreleri içerdiği ve A $: C $ sütunların kullanmak istediğiniz hücreleri içerdiğini gösterir. Lütfen bunları kendi başınıza değiştirin.

2. Daha sonra tuşuna basın. ÜstKrktr + Ctrl + Enter tuşlarını birlikte kullanın ve ardından boş hücreler görünene kadar benzersiz değerleri ayıklamak için dolgu tutamacını sürükleyin. Ekran görüntüsüne bakın:


Pivot Tablo ile birden çok sütundan benzersiz değerleri çıkarın

Pivot tabloya aşina iseniz, aşağıdaki adımlarla birden çok sütundan benzersiz değerleri kolayca çıkarabilirsiniz:

1. İlk önce lütfen verilerinizin soluna yeni bir boş sütun ekleyin, bu örnekte, orijinal verilerin yanına A sütununu ekleyeceğim.

2. Verilerinizdeki bir hücreyi tıklayın ve Alt + D tuşlarına basın, ardından P açmak için hemen anahtar PivotTable ve PivotChart Sihirbazı, seçmek Çoklu konsolidasyon aralıkları Adım 1 sihirbazında, ekran görüntüsüne bakın:

3. Sonra tıklayın Sonraki düğmesi, kontrol et Benim için tek bir sayfa alanı oluştur 2. adımda sihirbaz seçeneği, ekran görüntüsüne bakın:

4. Tıklamaya git Sonraki düğmesi, sol yeni hücre sütununu içeren veri aralığını seçmek için tıklayın ve ardından Ekle veri aralığını eklemek için düğme Tüm aralıklar liste kutusu, ekran görüntüsüne bakın:

5. Veri aralığını seçtikten sonra devam et Sonraki, sihirbazın 3. adımında, PivotTable raporunu istediğiniz yere koymak istediğiniz yeri seçin.

6. Sonunda, tıklayın Bitiş sihirbazı tamamlamak için ve mevcut çalışma sayfasında bir pivot tablo oluşturulmuşsa, ardından tüm alanların işaretini kaldırın. Rapora eklenecek alanları seçin bölümü, ekran görüntüsüne bakın:

7. Ardından alanı kontrol edin Özellik veya Değeri satırlar etiket, şimdi aşağıdaki gibi birden çok sütundan benzersiz değerleri alacaksınız:


VBA kodu ile birden çok sütundan benzersiz değerleri çıkarın

Aşağıdaki VBA kodu ile, benzersiz değerleri birden çok sütundan da çıkarabilirsiniz.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA: Birden çok sütundan benzersiz değerleri çıkarın

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. Daha sonra tuşuna basın. F5 bu kodu çalıştırmak için ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatan bir komut kutusu açılır. Ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK, sonucu yerleştirmek için bir yer seçmenize izin veren başka bir istem kutusu görünecektir, ekran görüntüsüne bakın:

5. Tıkla OK bu iletişim kutusunu kapatmak için ve tüm benzersiz değerler aynı anda çıkarılmıştır.


Harika bir özellikle tek bir sütundan benzersiz değerleri çıkarın

Bazen, benzersiz değerleri tek bir sütundan çıkarmanız gerekir, yukarıdaki yöntemler size yardımcı olmaz, burada yararlı bir araç önerebilirim-Kutools for Excel, Onun ile Hücreleri benzersiz değerlerle çıkarın (ilk kopyayı dahil edin) yardımcı program, benzersiz değerleri hızlı bir şekilde çıkarabilirsiniz.

Not:Bunu uygulamak için Hücreleri benzersiz değerlerle çıkarın (ilk kopyayı dahil edin)öncelikle Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Sonucun çıktısını almak istediğiniz bir hücreye tıklayın. (not: İlk satırdaki bir hücreye tıklamayın.)

2. Sonra tıklayın Kutools > Formül Yardımcısı > Formül Yardımcısı, ekran görüntüsüne bakın:

3. In Formül Yardımcısı iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • seçmek Metin seçeneği formül Tip açılır liste;
  • Sonra seç Hücreleri benzersiz değerlerle çıkarın (ilk kopyayı dahil edin) itibaren Bir inula seçin liste kutusu;
  • Sağda Bağımsız değişken girişi bölümünde, benzersiz değerleri çıkarmak istediğiniz hücrelerin bir listesini seçin.

4. Sonra tıklayın Ok düğmesini tıklayın ve doldurma tutamacını boş hücreler görüntülenene kadar tüm benzersiz değerleri listelemek istediğiniz hücrelere sürükleyin, ekran görüntüsüne bakın:

Kutools for Excel'i Şimdi Ücretsiz İndirin!


Daha ilgili makaleler:

  • Bir Listedeki Benzersiz ve Farklı Değerlerin Sayısını Sayma
  • Bazı yinelenen öğeler içeren uzun bir değerler listeniz olduğunu varsayarsak, şimdi, benzersiz değerlerin sayısını (listede yalnızca bir kez görünen değerler) veya farklı değerleri (listedeki tüm farklı değerler, benzersiz anlamına gelir) değerler + 1. yinelenen değerler) gösterilen sol ekran görüntüsü gibi bir sütunda. Bu yazımda Excel'de bu işle nasıl başa çıkılacağından bahsedeceğim.
  • Excel'de Ölçütlere Dayalı Benzersiz Değerleri Çıkarın
  • Aşağıdaki veri aralığına sahip olduğunuzu varsayarsak, aşağıda gösterilen ekran görüntüsü gibi sonucu elde etmek için A sütununun belirli bir kriterine dayalı olarak yalnızca B sütununun benzersiz adlarını listelemek istediğinizi varsayalım. Excel'de bu görevi hızlı ve kolay bir şekilde nasıl halledebilirsiniz?
  • Excel'de Yalnızca Benzersiz Değerlere İzin Ver
  • Bir çalışma sayfası sütununa yalnızca benzersiz değerleri girmek ve yinelemeleri önlemek istiyorsanız, bu makale bu görevle başa çıkmanız için bazı hızlı püf noktaları sunacaktır.
  • Excel'deki Ölçütlere Dayalı Benzersiz Değerleri Toplama
  • Örneğin, aşağıda gösterilen ekran görüntüsü gibi Ad sütununa göre Sıra sütununda yalnızca benzersiz değerleri toplamak için Ad ve Sıra sütunlarını içeren bir veri aralığım var. Excel'de bu görevi hızlı ve kolay bir şekilde nasıl çözebilirim?

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 (31)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Is this formula complete? =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"",
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu henüz düzelmedi :üzgün:
Bu yorum sitedeki moderatör tarafından en aza indirildi
ne büyük zaman kaybı..... formül çalışmıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim!!! Bunu yapmak ve Pivot Sihirbazı'na ne olduğunu bulmak için saatler harcıyorum (diğer makale).
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodunuzu kullanıyorum, ancak kutunun açılmasını istemiyorum. Bunun yerine, her seferinde tam olarak hangi hücre aralığını kullanacağımı ve çıktıyı tam olarak hangi kutuya koyacağımı tanımlamak istiyorum. Girdi aralığı ve çıktı iki farklı sayfada olacaktır. Bunu yapmak için VBA'yı nasıl güncellerim? Teşekkür ederim!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey! Bu formülün neden 87. satırdan sonra bir hataya yol açtığını bilen var mı? Gibi, mükemmel çalışıyor ve sonra belirli bir noktada bana her satır için hata veriyor .. bu en kötüsü! Çünkü burada tam olarak ihtiyacım olan şeye çok yakınım...
Bu yorum sitedeki moderatör tarafından en aza indirildi
=INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"" It doesn't work
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba, başka bir sütunla karşılaştırdığımda ilk sütundan benzersiz hücreler çıkarmak istiyorum (üç eşit olmayan sütunum var), nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba, üç eşit olmayan sütunum var ve ilk sütunun benzersiz hücrelerini çıkarmak istiyorum. nasıl yapabilirim?? şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
seviyorum

Pivot Tablo ile Birden Çok Sütundan Benzersiz Değerler Çıkarın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lütfen doğru formülü gönderebilir misiniz ... VBA işlevi gayet iyi çalışıyor.
Sadece projem için doğru formülü kullanmayı tercih ediyorum.


Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çıktı için, birkaç satıra nasıl dönüştürüleceğini, ancak bir satıra nasıl dönüştürüleceğini bilen var mı? (şu anda worksheetfunction.transpose tarafından bir satır sonucu elde ediliyor, ancak elde etmek istediğim (sonuç olarak) 3 sütun için seçildiğinde, döndürülen sonucun bir yerine 3 sütun olması
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu dizi formülü DOĞRU'dur. A'dan C'ye sütunlardaki veriler, ilk sonuç formülü D2 hücresindeki... Bu, diğer dizi formülünden farklıdır, daha sonra formülü aşağı kopyalayın ve Ctrl+Shift+Tüm formülü girin. Ancak bu dizi formülü ilk hücrede Ctrl+Shift+Enter yapılarak aşağı doğru kopyalanmalıdır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Makro için teşekkürler!!! beni fue muy util
Bu yorum sitedeki moderatör tarafından en aza indirildi
sayfama göre ayarladım ama tanımlı dizideki yalnızca ilk değeri döndürüyorum... neyi özlüyorum?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Cody,
Yukarıdaki formül çalışma sayfamda iyi çalışıyor, burada veri probleminizin bir ekran görüntüsünü verebilir misiniz?
Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formül versiyonuyla ilgili olarak, bu bölümün ne yaptığını daha ayrıntılı olarak açıklayabilir misiniz? *100+COLUMN($A:$C),7^8)),"R0C00") Spesifik olarak, neler * 100, 7 ^ 8, ve "R0C000" yapmak? Diğer her şeyi anlıyorum ama bunların ne için olduğunu anlayamıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Buradaki cevabım için biraz geç ama...
SATIR($2:$9)*100 - bu, *100 satır numarasının çarpılmasıdır, yani 5. satırdaysa, şimdi sayı 500'dür.
COLUMN($A:$C) - bu satır*100 sayısına eklenir, bu nedenle satır 5 sütun 2 ise, sayı 502'dir.
7^8)), - bu (sanırım) daha önceki min ifadesi için bir maksimum değere sahip olmaktır.
"R0C00") - bu, metni sayıya göre biçimlendirir. Örnekte 502'ye sahiptik, bu da R5C02'yi verir (satır 5, sütun 02).

Çok fazla sütununuz varsa ancak çok fazla satırınız yoksa, bunu SATIR($2:$9)* olarak değiştirebilirsiniz.1000+SÜTUN($A:$C),7^8)),"R0C000")
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod için teşekkürler. Bu sayfanın VBA kodunu kullanıyorum. Benzersiz değerler çıkarıldıktan sonra otomatik olarak sıralayacak şekilde bir sıralama kodu eklemenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
makro yerine uniqdata işlevi oluşturabilir miyiz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba İlhan,Bu sorunu çözmek için bir formül oluşturmak için Kullanıcı Tanımlı Fonksiyonu seviyorsanız, aşağıdaki kod size yardımcı olabilir: Kodu girdikten sonra, sonuçları koymak istediğiniz hücrelerin listesini seçin. Ardından şu formülü yazın:=Benzersizler(A1:C4)  formül çubuğunda.Basın Ctrl + Shift + Enter birlikte anahtarlar. 


Function Uniques(ByVal inputRange As Range)
Dim inputArray As Variant
Dim myColl As New Collection
Dim xVal As Variant
Dim outArray() As Variant
On Error Resume Next
With inputRange
inputArray = Application.Intersect(.Cells, .Parent.UsedRange).Value
End With
On Error GoTo 0
On Error Resume Next
For Each xVal In inputArray
myColl.*** Item:=xVal, Key:=(CStr(xVal) & TypeName(xVal))
Next xVal
myColl.Remove "String"
On Error GoTo 0
ReDim outArray(1 To Application.Max(myColl.Count, Application.Caller.Cells.Count))
For xVal = 1 To UBound(outArray)
outArray(xVal) = vbNullString
Next xVal
For xVal = 1 To Application.Min(myColl.Count, Application.Caller.Cells.Count)
outArray(xVal) = myColl(xVal)
Next xVal
If Application.Caller.Columns.Count = 1 Then
Uniques = Application.Transpose(outArray)
Else
Uniques = outArray
End If
End Function
Bu yorum sitedeki moderatör tarafından en aza indirildi
Czy'den żart'a mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
En üstteki dizi formülü aynı sayfadaki verilerle kullanıldığında harika çalışıyor, ancak başka bir sayfadaki aynı verilere başvurmak için kullanmaya çalıştığımda formül hiçbir şey döndürmüyor. Neden olduğunu anlayamıyorum. Farklı bir sayfada aralıklara başvurmanızı engelleyen dizi işlevleriyle ilgili bir sınırlama var mı?

Sağlayabileceğiniz herhangi bir anlayış için teşekkür ederiz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Erin,

Yardımcı olduğuma sevindim. Bu formüldeki DOLAYLI işlevi, diğer çalışma sayfalarındaki verilere başvururken kullanmak daha karmaşıktır. Farklı çalışma sayfalarında aralıklara başvururken bu özelliğin kullanılması önerilmez.

Örneğin: Şimdi veriler Sayfa1'de, Sayfa2'deki Sayfa1'in C2 hücresinin içeriğine başvurmak istiyorum. İlk olarak, D2 ve D1 gibi Sayfa2'deki herhangi iki hücreye sırasıyla Sayfa1 ve C2'yi girin. Bu noktada, Sheet2'nin boş hücresine formülü girin:
=DOLAYLI("'"&D1&"'!"&D2), o zaman Sayfa2'deki C1 hücresinin içeriği döndürülebilir.

Gördüğünüz gibi, işleri daha karmaşık hale getiriyor. Umarım açıklamam yardımcı olabilir. İyi günler.

En içten dileklerimizle,
Mandy
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba efendim! VBA harikalar yarattı, bunun için çok teşekkür ederim! Merak ediyordum, orijinal verileri değiştirirsem, sütunu benzersiz değerlerle otomatik olarak yenilemek mümkün müdür?
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ioannis,

Yardımcı olduğuma sevindim. Orijinal verileri değiştirdikten sonra VBA sonucu otomatik olarak yenileyemez. Ve aklıma gelen en kolay yol, tüm açık çalışma kitaplarındaki çalışma sayfalarındaki tüm sonuçları yenilemek için Ctrl + Alt + F9 tuşlarına basmaktır. İyi günler.

En içten dileklerimizle,
Mandy
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika yazı için teşekkürler.

kullanan kişiler için İngilizce olmayan Excel'de dizi formülü metin biçimi dizesine özel dikkat gösterilmelidir: sizin örneğinizde: "R0C00".
Almanca için bu "Z0S00" anlamına gelir. Ancak, "S", zaman biçimlendirmesi için saniyelere atıfta bulunan özel bir karakterdir. Bu karakterin öncelenmesi gerekir ve bu nedenle Almanca Excel için doğru biçim dizesi "Z0\S00" olur.

Umarım bu gelecekte birine yardımcı olur :-)
Buraya henüz hiç yorum yapılmamış
Daha Çok
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