Aşağıdaki kod A sütunundaki dolu hücreleri düzenleyecektir.
C++:
Option Explicit
Sub Unique_Data()
Dim Rng As Range, My_Data As Variant
For Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
If Rng.Value <> "" Then
With VBA.CreateObject("Scripting.Dictionary")
For Each My_Data In Split(Rng.Value, ",")
If Not .Exists(My_Data) Then
.Add My_Data, False
End If
Next
Rng.Value = Join(.Keys, ",")
End With
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Korhan bey dönüşünüz için teşekkür ederim. Peki bu işlemi ben tıklayarak yapıyorum, herhangi bir işlem yapmadan otomatik şekilde belirlediğim hücreye yazdırabilir miyim
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.