İki Microsoft Excel çalışma sayfası sütunundaki verileri karşılaştırmak ve yinelenen girişleri bulmak için aşağıdaki yöntemleri kullanabilirsiniz.
Yöntem 1: Bir çalışma sayfası formülü kullanın
-
Excel'i başlatın.
-
Yeni bir çalışma sayfasına örnek olarak aşağıdaki verileri girin (B sütununu boş bırakın):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
B1 hücresine aşağıdaki formülü yazın:
=IF(EHATALIYSA(KAÇINCI(A1,$C$1:$C$5,0)),"",A1) -
B1 - B5 hücresini seçin.
-
Düzenleme grubunda Doldur'a ve ardından Aşağı'ya tıklayın.
Yinelenen sayılar, aşağıdaki örnekte olduğu gibi B sütununda görüntülenir:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Yöntem 2: Visual Basic makrosu kullanın
Uyarı: Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; açık veya zımni hiçbir garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama diline ve prosedürler oluşturmak ve prosedürlerde hata ayıklamak için kullanılan araçlara aşina olduğunuzu varsaymaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak, ek işlevsellik sağlamak veya özel gereksinimlerinizi karşılamak için prosedürler oluşturmak için bu örnekleri değiştirmeyeceklerdir.
İki sütundaki verileri karşılaştırmak üzere bir Visual Basic makrosu kullanmak için aşağıdaki örnekteki adımları kullanın:
-
Excel'i başlatın.
-
Visual Basic düzenleyicisini başlatmak için ALT+F11 tuşlarına basın.
-
Ekle menüsünde Modül'ü seçin.
-
Bir modül sayfasına aşağıdaki kodu girin:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub
-
Excel'e dönmek için ALT+F11 tuşlarına basın.
-
Aşağıdaki verileri örnek olarak girin (B sütununu boş bırakın):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
A1 - A5 hücrelerini seçin.
-
Geliştirici sekmesini ve ardından Kod grubunda Makrolar'ı seçin.
Not: Geliştirici sekmesini görmüyorsanız açmanız gerekebilir. Bunu yapmak için Dosya > Seçenekler > Şeridi ÖZelleştir'i seçin ve ardından sağ taraftaki özelleştirme kutusundan Geliştirici sekmesini seçin.
-
Find_Matches öğesini ve ardından Çalıştır öğesini tıklayın.
Yinelenen sayılar B sütununda görüntülenir. Eşleşen sayılar burada gösterildiği gibi ilk sütunun yanına konulacaktır:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0