Makale numarası: 213367 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

™zet

Bu makalede, iki farklı Microsoft Excel çalışma sayfası sütunundaki verileri karşılaştırmak ve yinelenen girdileri bulmak için kullanabileceğiniz iki yöntem açıklanır.

Daha fazla bilgi

Yöntem 1: Bir çalışma sayfası formülü kullanma

İki farklı sütundaki verileri karşılaştırmak üzere bir çalışma sayfası formülü kullanmak için şu adımları izleyin:
  1. Excel'i başlatın.
  2. Yeni bir çalışma sayfasına aşağıdaki verileri girin (B sütununu boş bırakın):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  3. B1 hücresine aşağıdaki formülü yazın:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. B1:B5 aralığındaki hücreleri seçin.
  5. Microsoft Office Excel 2003 ve önceki Excel sürümlerinde, Düzen menüsünde Doldur'un üzerine gelin ve Aşağı'yı tıklatın.

    Microsoft Office Excel 2007'de, Düzenleme grubunda Doldur'u ve ardından Aşağı'yı tıklatın.

    Yinelenen sayılar, aşağıdaki örnekte gösterildiği gibi B sütununda görüntülenir:
       A1: 1   B1:     C1: 3
       A2: 2   B2: 2   C2: 5
       A3: 3   B3: 3   C3: 8
       A4: 4   B4:     C4: 2
       A5: 5   B5: 5   C5: 0
    					

Yöntem 2: Bir Visual Basic makrosu kullanma

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. İki farklı sütundaki verileri karşılaştırmak üzere bir Visual Basic makrosu kullanmak için, aşağıdaki örnekte yer alan adımları kullanın:
  1. Excel'i başlatın.
  2. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.
  3. Ekle menüsünde Modül'ü tıklatın.
  4. Modül sayfasına aşağıdaki kodu girin:
    Sub Find_Matches()
        Dim CompareRange As Variant, x As Variant, y As Variant
        ' CompareRange değeri, seçimi karşılaştıracağınız aralığa
        ' eşit olacak şekilde ayarlayın.
        Set CompareRange = Range("C1:C5")
        ' NOT: Karşılaştırma aralığı başka bir çalışma kitabında veya
        ' çalışma sayfasında yer alıyorsa aşağıdaki sözdizimini kullanın.
        ' Set CompareRange = Workbooks("Book2"). _
        '   Worksheets("Sheet2").Range("C1:C5")
        '
        ' Seçimdeki her hücreye tek tek gidin ve CompareRange
        ' aralığındaki her hücreyle karşılaştırın.
        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
    					
  5. ALT+F11 tuşlarına basarak Excel'e dönün.
  6. Aşağıdaki verileri girin (B sütununu boş bırakın):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  7. A1:A5 aralığını seçin.
  8. Excel 2003 ve önceki Excel sürümlerinde, Araçlar menüsünde Makro'nun üzerine gelin ve Makrolar'ı tıklatın.

    Excel 2007'de, Geliştirici sekmesini ve sonra da Kod grubunda Makro'yu tıklatın.
  9. Find_Matches makrosunu, ardından Çalıştır'ı tıklatın.
Yinelenen sayılar B sütununda görüntülenir. Eşleşen sayılar aşağıda gösterildiği gibi ilk sütunun yanında gösterilir:
   A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0
				

Özellikler

Makale numarası: 213367 - Last Review: 20 Kasım 2007 Salı - Gözden geçirme: 4.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Anahtar Kelimeler: 
kbhowto kbprogramming kbdtacode KB213367

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com