Excel’de birden fazla çalışma sayfası arasında benzersiz değerlerden oluşan bir liste nasıl oluşturulur?
Excel’de verileriniz birden fazla çalışma sayfasına dağılmışsa, bu bilgileri birleştirip benzersiz değerlerden oluşan tek bir liste oluşturmanız gerekebilir. Excel’in bu iş için doğrudan yerleşik bir özelliği olmasa da, görevi gerçekleştirmenin birkaç etkili yöntemi vardır. Bu makalede, birden fazla çalışma sayfasından benzersiz değerler içeren bir liste oluşturmak için üç pratik yaklaşımı adım adım inceleyeceğiz.
Birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturun
VBA koduyla birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturun
Tüm çalışma sayfalarından benzersiz değerleri listelemenize yardımcı olmak için aşağıdaki VBA kodunu kullanabilirsiniz. Lütfen şu adımları izleyin:
1. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT + F11" tuşlarına basılı tutun.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki makroyu Modül Penceresine yapıştırın.
VBA kodu: Birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturun:
Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
If xObjWS.Name = xStrName Then
xObjWS.Delete
Exit For
End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xMaxC < xColumn Then
xMaxC = xColumn
End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
xIntN = 1
For xFNum = 1 To Sheets.Count - 1
Set xR = Sheets(xFNum).Columns(xColumn)
If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
Cells(xIntN, xColumn).PasteSpecial xlValues
xIntN = xIntRox + xIntN + 1
End If
Next xFNum
If xIntRox - 1 > 0 Then
xIntRox = xIntN - 1
xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range(xStrAddress).Copy
Cells(1, xColumn + 1).PasteSpecial xlValues
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
Columns(xColumn).Delete
Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Yukarıdaki kodu yapıştırdıktan sonra F5 tuşuna basarak kodu çalıştırın. Ardından "Benzersiz Değer" adında yeni bir çalışma sayfası oluşturulur ve tüm sayfalardaki Sütun A’daki benzersiz isimler, aşağıdaki ekran görüntüsünde gösterildiği gibi listelenir:
KUTOOLS AI Aide ile birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturun
Bu bölümde, KUTOOLS AI Aide’yi kullanarak birden fazla çalışma sayfasından zahmetsizce benzersiz değerler içeren bir liste oluşturmayı göstereceğiz.
"Kutools" > "AI Asistanı" seçeneğine tıklayarak "KUTOOLS AI Aide" bölmesini açın. Bölmede lütfen aşağıdaki işlemleri gerçekleştirin:
- Sohbet kutusuna aşağıdaki gibi bir gereksinim yazın:
Bu çalışma kitabının tüm çalışma sayfalarındaki Sütun A’dan tüm benzersiz değerleri çıkar ve bu benzersiz değerleri yeni bir sayfada listele - Ardından Enter tuşuna basın veya "Gönder" düğmesine tıklayın. KUTOOLS AI, sorunuzu analiz edecek. İşlem tamamlandığında "Çalıştır" düğmesine tıklayarak tüm çalışma sayfalarından alınan benzersiz değerlerin yeni bir sayfada görüntülenmesini sağlayın. Aşağıdaki demoya göz atın:
Formülle birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturun (Excel 365)
Excel’de formül kullanarak birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturmak istiyorsanız, Excel 365 sürümünde UNIQUE ve VSTACK gibi dinamik dizi işlevlerini birleştirerek bu hedefe kolayca ulaşabilirsiniz.
Lütfen aşağıdaki formülü boş bir hücreye girin ve Enter tuşuna basarak birden fazla sayfadan benzersiz değerleri tek bir sütunda toplayın. Ekran görüntüsüne göz atın:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKBirden fazla aralığı (örn. Sayfa1!A1:A11, Sayfa2!A1:A11, Sayfa3!A1:A11, Sayfa3!A1:A11) tek bir dikey diziye sorunsuzca birleştirir.
- UNIQUEYinelenen değerleri filtreler ve birleştirilmiş listede yalnızca benzersiz değerleri bırakır.
- A1:A11Gerçek Veri Aralığınızı kapsayacak şekilde aralığı ayarlayın.
Bu makalede, Excel’de birden fazla çalışma sayfasından benzersiz değerlerden oluşan bir liste oluşturmanın üç etkili yöntemini inceledik. Her yöntemin kendine özgü avantajları vardır; Excel sürümünüz, beceri seviyeniz ve özel ihtiyaçlarınıza göre en uygun olanı seçebilirsiniz. Daha fazla Excel ipucu ve püf noktası keşfetmek istiyorsanız, web sitemizde binlerce eğitim kaynağı sunulmaktadır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentilerin yanı sıra Office Tab Pro’yu da içerir; böylece Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar