benzersiz karakterleri silmek,yinelenen karakterleri kopyalamak

[can-can]

merhaba arkadaslar, her yerde aradım ancak hep tekrarlanan yinelenen karkterleri kaldırmaktan bahsetmisler, benim sıkıntım su elimde 10 bin karakterli liste var ve ben bu listedeki tekrarlanan karakterleri kopyalamak istiyorum muhakkak vardır diye dusunuyorum cok ugrastım yapamadım en sonunda burada konu acmaya karar verdim. yardımcı olacak arkadasa simdiden cok cok tesekkurler.....

 

[vardar07]

Orjinal dosyanızın bir kopyasını oluşturun. Gerçek verileri silip benzer şekilde atmasyon veriler ekleyip nasıl olacaksa dosya içine elle yapılmış örneğini belirtin ( verilerin fazla olması gerekmiyor.). Dosyanızı ekleyin. Böyle birşey anlaşılmıyor. Dosya ekleme için imza bölümünü okuyun.

 

[can-can]

Orjinal dosyanızın bir kopyasını oluşturun. Gerçek verileri silip benzer şekilde atmasyon veriler ekleyip nasıl olacaksa dosya içine elle yapılmış örneğini belirtin ( verilerin fazla olması gerekmiyor.). Dosyanızı ekleyin. Böyle birşey anlaşılmıyor. Dosya ekleme için imza bölümünü okuyun.

ÖRNEK:
http://dosya.co/u86lnv624s2q/tekrarlanan_kelimeleri_kopyalamak.xlsx.html

yardımlarınızı bekliyorum cevabınız ve ilginiz cok cok tesekkurler..

 

[vardar07]

Modüle ekleyip deneyiniz.

Sub tekrar()
Set sh = Sheets("Sayfa1")
For i = 1 To sh.Cells(Rows.Count, 1).End(3).Row
If WorksheetFunction.CountIf(sh.Range("A1:A" & i), sh.Cells(i, 1)) > 1 Then
a = a + 1
sh.Cells(a, "B") = sh.Cells(i, "A")
End If
Next
End Sub

 

[can-can]

Modüle ekleyip deneyiniz.

Sub tekrar()
Set sh = Sheets("Sayfa1")
For i = 1 To sh.Cells(Rows.Count, 1).End(3).Row
If WorksheetFunction.CountIf(sh.Range("A1:A" & i), sh.Cells(i, 1)) > 1 Then
a = a + 1
sh.Cells(a, "B") = sh.Cells(i, "A")
End If
Next
End Sub

hocam tam istediğim gibi . cok cok tesekkurler...

 

[vardar07]

Rica ederim.