İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
20 Nisan 2021
26 Nisan 2021
642
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma isimli kod, iki sütunu karşılaştırır, aynı ve farklı olanları ayrı sütunlara yazmayı öğretir.
Sub ayir()
Dim hcr As Range, j1 As Integer, j2 As Integer
On Error Resume Next
For i = 1 To [A65536].End(xlUp).Row
x = Columns("B:B").Find(Cells(i, "A"), lookat:=xlWhole).Row
If Err.Number <> 0 Then
j1 = j1 + 1
Cells(j1, "D").Value = Cells(i, "A")
Err.Clear
Else
j2 = j2 + 1
Cells(j2, "C").Value = Cells(i, "A")
End If
Next
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
İki ayrı sütundaki verileri karşılaştırır, aynı olanları bir sütuna, farklı olanları ise başka bir sütuna yazdırarak ayrıştırma yapar.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Satırın Başına Gitme | Home |
| Bitişik Olmayan Hücrelerde Sağa Gitme | Ctrl Alt → |
| Tüm Tabloyu Seçme | Ctrl A |
| Veri Aralığının En Soluna Gitme | Ctrl ← |
| Eğik Yazdırma / Alternatif | Ctrl 3 |