VB ile excel'de verileri temizleme

[efet]

Bu konunun yeri bu bolum mu bilmiyorum o yuzden yanlis bolume actiysam kusuruma bakmayin.

Elimde 2 excel dosyasi var. Bu 2 dosyada da Person_ID ve Person_Amt diye isimlendirdigim bilgilerin bulundugu 2 sutun var. Yapmam gereken bu 2 dosyada bulunan Person_IDlerden eslesenleri bulmak ve Person_Amt sutunundaki farklari yazmak. Bunu VB ile mi yapmaliyim, formul ile mi yapmaliyim bilemiyorum. Binlerce veri oldugundan tek tek da yapmam gunlerimi alir. Yardimci olabilirseniz cok sevinirim.

[ali çetin]

For i = 1 To 3000
For j = i+1 To 3000
If Range(a & i).Text = Range(a & j).Text Then
Rows(i).Select
Selection.Delete
i = i - 1
End If
Next
Next

bu döngüdeki i nin 1 den başlaması verininh 1. satırdan başlaması demek yani verin hangi satırdan başlıyor ise 1 rakamını o satır numarası ile değiştireceksiniz ve 3000 verinin son olduğu satır numarasıdır 3000 i de sizdeki verinin son satır numarası ile değiştireceksiniz birde bunları yapmadan önce veriyi ıd lerinize göre sıralar iseniz daha hızlı çalışır

[ali çetin]

bunları excelde araçlar menüsünde makro var ordaki makro bölümüne yazıp makroyu çalıştırarak yapa bileceğiniz gibi aynı menüde visual basic düzenleyicisi var orda form üzerine bir buton atıp butonun clik olayınada yaza bilirsiniz

[ali çetin]

For i = 1 To 3000
For j = i+1 To 3000
If Range(a & i).Text = Range(a & j).Text Then
range (c &i).text = "1"

End If
Next
Next


şeklinde yazarsanız benzerliği olan satırda c sütununa 1 rakamını yazdırmış olursunuz sonra veri süz menüsünden 1 leri süzdürürseniz sizin istediğiniz satırlar elinizde kalır c sütunun alttoplamını alırsanız toplamda kaç adet eşleşen satırınız olduğunu görür sünüz

[efet]

Ali Bey cevabiniz icin cok tesekkur ederim. Yalniz sanirim yapmak istedigimi anlatamadim. Bir bakima SQLdeki inner join ozelligini kullanmak istiyorum. 2 Exceldeki 2 sutunu tek sutuna aldim. Ben ONCE kismindaki verilerin altindaki SONRA kismindaki gibi olmasini istiyorum. Person IDleri eslesmeyen veriler silinsin, Eslesenlerin de yaninda Person Amt#1 ve Person #2 verileri gozuksun.


ONCE
A1-Person ID | B1-Person Amt #1 | C1-Person ID | D1-Person Amt #2
154544 339.00 987987 456.99
654665 939.00 123456 798.99
123456 199.00 154544 456.99
SONRA
A1-Person ID | B1-Person Amt #1 | D1-Person Amt #2
154544 339.00 456.99
123456 199.00 798.99