Ana içeriğe atla

İki sayfanın iki sütununda yinelenen veya benzersiz değerler nasıl bulunur?

Belki aynı çalışma sayfasındaki iki aralığı karşılaştırın ve yinelenen veya benzersiz değerlerin çoğunuz için kolay olduğunu öğrenin, ancak iki aralık iki farklı çalışma sayfasındaysa, bu iki aralıktaki yinelenen ve benzersiz değerleri nasıl hızlı bir şekilde bulabilirsiniz ? Bu eğitim, sizin için bazı hızlı yolları tanıtacaktır.

İki hesap sayfasındaki aynı iki başlık sütununu Excel'deki formülle karşılaştırın

İki hesap tablosundaki iki aralığı VBA ile karşılaştırın

Kutools for Excel ile iki hesap tablosundaki iki aralığı karşılaştırın


ok mavi sağ balon İki hesap sayfasındaki aynı iki başlık sütununu Excel'deki formülle karşılaştırın

Excel'deki formülle, aşağıda gösterildiği gibi iki aynı başlık sütununu farklı sayfalarda karşılaştırabilir ve yinelenen ve benzersiz değerleri bulabilirsiniz:

1. Bu formülü yazmak = EĞERSAY (Sayfa1! $ A: $ A, A1) Sayfa 3'teki aralığa bitişik boş bir hücrede. Ekran görüntüsüne bakın:

2. Basın Keşfet düğmesine tıklayın ve ardından Sayfa 1'deki aralıkla karşılaştırmak istediğiniz aralığı doldurmak için doldurma tutamacını sürükleyin (Sıfır Sayısı, iki aralıkta yinelenen değerler anlamına gelir ve Sayı 1, Sayfa3'te benzersiz değerler anlamına gelir, ancak Sayfa1'de değildir)

İpuçları:

1. Bu formül yalnızca iki hesap tablosundaki aynı başlığa sahip iki sütunu karşılaştırabilir.

2. Eşsiz değerleri Sayfa1'de bulmak istiyor, ancak Sayfa3'te bulamıyorsanız, yukarıdaki formülü girmeniz gerekir =EĞERSAY (Sayfa3! $ A: $ A; A1) Sayfa1'e.


ok mavi sağ balon İki hesap tablosundaki iki aralığı VBA ile karşılaştırın

1. Ambar ALT tuşuna basın ve tuşuna basın. F11 klavyede bir Uygulama için Microsoft Visual Basic pencere.

2. tık Ekle > modülve VBA'yı modüle kopyalayın.

VBA: İki e-tablodaki iki aralığı karşılaştırın

Sub CompareRanges () '20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Aralık A:", xTitleId, "", Tür: = 8 ) Set WorkRng2 = Application.InputBox ("Aralık B:", xTitleId, Tür: = 8) WorkRng1'deki Her Rng1 için rng1Value = WorkRng1'deki Her Rng2 için Rng2.Value Eğer rng1Value = Rng2.Value Sonra Rng1.Interior.Color = VBA .RGB (255, 0, 0) Sonraki Sonraki End Alt

3. tık koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı çalıştırmak için.

4. Ekranda bir iletişim kutusu görüntülenir ve karşılaştırmak istediğiniz bir aralığı seçmelisiniz. Ekran görüntüsüne bakın:

5. tık Ok ve ikinci aralığı seçmeniz için başka bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:

6. tık Okve hem Aralık A hem de Aralık B'deki yinelenen değerler, Aralık A'da kırmızı arka planla vurgulanır. Ekran görüntüsüne bakın:

İpuçları: Bu VBA ile hem aynı hem de farklı çalışma sayfalarında iki aralığı karşılaştırabilirsiniz.


ok mavi sağ balon Kutools for Excel ile iki hesap tablosundaki iki aralığı karşılaştırın

Formül sizin için uygun değilse ve VBA sizin için zorsa, deneyebilirsiniz. Kutools for Excel's Aralıkları Karşılaştır fonksiyonu.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

Lütfen uygula Aralıkları Karşılaştır tıklayarak işlevi Kutools > Aralıkları Karşılaştır. Ekran görüntüsüne bakın:

Farklı sayfalardaki iki sütunla karşılaştırın:

1. tık Kutools > Aralıkları Karşılaştırekranda bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:

2. Aralıkları ve kuralları belirleyin, aşağıdaki işlemleri yapın:

Karşılaştır'ı aynı aralıkta bırak işaretini kaldırın ve tıklayarak iki aralık seçin A Aralığı ve B Aralığı, ekran görüntüsüne bakın:

Bulmak istediğiniz aynı değerleri veya farklı değerleri, Kurallar altındaki açılır kutuda belirtin;

3. tık Ok. Bir açılır iletişim kutusu size aynı değerlerin seçildiğini söyler.

4. tık Ok açılır iletişim kutusundaki düğmesine basın. Aralık A'da iki aralık arasındaki aynı değerler seçilir.

Elektronik çalışma sayfalarında iki aralığı karşılaştırın

İki hesap tablosunda aşağıda gösterildiği gibi iki aralığınız varsa ve bunları karşılaştırmak ve farklı değerleri bulmak istiyorsanız, aşağıdakileri yapabilirsiniz:

1. tık Kutools > Aralıkları Karşılaştırekranda bir iletişim kutusu görüntülenir.

2. Aralıkları ve kuralları belirleyin, aşağıdaki işlemleri yapın:

Ayrılmak Aynı aralıkta karşılaştır işaretini kaldırın ve tıklayarak iki aralık seçin A Aralığı ve B Aralığı;

Bulmak istediğiniz farklı değerleri, Kurallar altındaki açılır kutuda belirtin;

Verilerimin başlıkları olduğunu kontrol edin in Opsiyonlar Bölüm;

3. tık Ok. Bir açılır iletişim kutusu size aynı değerlerin seçildiğini söyler.

4. tık Ok açılır iletişim kutusundaki düğmesine basın. Aralık A'daki farklı değerler seçilir. Ekran görüntüsüne bakın:

Sheet2'nin B Aralığı'ndaki farklı değerleri bulmak istiyorsanız, iki aralığı değiştirmeniz gerekir.

Aralıkları Karşılaştır işlevi aynı sayfadaki aralıkları da karşılaştırabilir. Karşılaştırma Aralıkları hakkında daha fazla bilgi için burayı tıklayın.


İlgili makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations