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

İ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

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

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 Ü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ü
Yaşlılar önden
En yeni ilk
Yorumlar (8)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Ajith Khedekar
Ajith Khedekar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Excel'de iki sütun arasındaki kelime farkını nasıl öğrenebilirim
cevap
0
0
CYM
CYM     Ajith Khedekar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Farklı sütunlardan aynı isimler nasıl bulunur. Bir sütun 2000 kayıt ve ikincisi 20000 kayıt içeriyorsa, bu isimler nasıl karşılaştırılır ve ayırt edilir? Teşekkürler,
cevap
0
0
tim
tim
Bu yorum sitedeki moderatör tarafından en aza indirildi
iki farklı excel sayfası arasındaki verileri nasıl karşılaştırabilirim?
cevap
0
0
Neelakshi Nehru
Neelakshi Nehru
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kod çalışıyor ancak yinelenen değerler olmasa bile tüm aralık vurgulanıyor. Yardım!
cevap
0
0
SM3117
SM3117
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, mevcut tüm çalışma sayfalarında bir dizi değer aramam gerekiyor ve herhangi bir eşleşme olması durumunda, değeri orijinal aralıkta renklendirin. Aşağıdaki kodu denedim: 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 crashncias" Set WorkRng1 = Application.InputBox("Seleccionar Equipos con cambios:", xTitleId, "", Type:=8) WorkRng2'deki Her Rng1 İçin ÇalışmaRng1 = Aralık("B1" & LastRow) Ayarla WorkRng1 rng1Value = Rng2.Value ActiveWorkbook'taki Her ws için. WorkRng2'deki Her Rng1 İçin Çalışma Sayfaları rng2Value = Rng1.Value Sonra Rng200.Interior.Color = VBA.RGB(250, 200, XNUMX) Exit For End If Next Next End Sub Ama eşleşmeler olduğunda herhangi bir değişiklik yapmıyor.... Biri yardımcı olabilir mi? ? Çok teşekkürler, iyi günler
cevap
0
0
SM3117
SM3117
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, sabah, mevcut tüm çalışma sayfalarında bir dizi değer aramam gerekiyor ve herhangi bir eşleşme olması durumunda, değeri orijinal aralıkta renklendirin. Aşağıdaki kodu denedim: 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 crashncias" Set WorkRng1 = Application.InputBox("Seleccionar Equipos con cambios:", xTitleId, "", Type:=8) WorkRng2'deki Her Rng1 İçin ÇalışmaRng1 = Aralık("B1" & LastRow) Ayarla WorkRng1 rng1Value = Rng2.Value ActiveWorkbook'taki Her ws için. WorkRng2'deki Her Rng1 İçin Çalışma Sayfaları rng2Value = Rng1.Value Sonra Rng200.Interior.Color = VBA.RGB(250, 200, XNUMX) Exit For End If Next Next End Sub Ama eşleşmeler olduğunda herhangi bir değişiklik yapmıyor.... Biri yardımcı olabilir mi? ? Çok teşekkürler, iyi günler
cevap
0
0
Nurul İslam Chowdhur
Nurul İslam Chowdhur
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu iyi. Yalnızca bir sayfa yinelenen öğeyi vurgular. Ancak yinelenen öğelerin bulunduğu her iki sayfayı da vurgulamam gerekiyor.
cevap
0
0
Chris
Chris     Nurul İslam Chowdhur
Bu yorum sitedeki moderatör tarafından en aza indirildi
THEN ifadesinin içine ikinci bir komut eklemeniz gerekir.


Bunu dene;

Alt KarşılaştırmaAralıkları()
'20130815 güncellemesi
Aralık olarak WorkRng1, Aralık olarak WorkRng2, Aralık olarak Rng1, Aralık olarak Rng2
xTitleId = "Karşılaştırma için Aralığı Girin"
Set WorkRng1 = Application.InputBox("Aralık A:", xTitleId, "", Tür:=8)
WorkRng2 = Application.InputBox ("Aralık B:", xTitleId, Tür:=8) olarak ayarlayın
WorkRng1'deki Her Rng1 İçin
rng1Değeri = Rng1.Değeri
WorkRng2'deki Her Rng2 İçin
rng1Value = Rng2.Value ise
Rng1.İç.Renk = VBA.RGB(255, 0, 0)
Rng2.İç.Renk = VBA.RGB(255, 0, 0)
Çıkış
Eğer son
Sonraki
Sonraki
End Sub
cevap
0
0
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Konuk
Misafir olarak yayınlama
Giriş
×
Bu gönderiyi değerlendirin:
Reset
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