Merhabalar, elimde yaklaşık 10.000 köy ismi var bu köy isimleri myurt köyü. olarak ve myurt adalı köyu. gibi aynı köy olmalarına rağmen farklı şekillerde kaydedilmiş. Köylere göre rapor hazırladığımda myurt köyü ve myurt adalı koyu şeklinde farklı şekilde raporluyor. Köyleri birleştirmek için kendim bir makro yazdım ama hiç performanslı değil, farklı bir yöntem nasıl uygulayabilirim.
Sub dd()
Dim i As Integer
i = 1
Dim i2 As Integer
i2 = 1
Dim kelime As String
Dim orjKelime As String
For TS = 1 To 300
kelime = Left$(Range("A" & i2), 4)
orjKelime = Range("A" & i2)
Dim kelime2 As String
For sayac = 0 To 300
i = i + 1
kelime2 = Left$(Range("A" & i), 4)
If kelime2 = kelime Then
Range("A" & i) = orjKelime
End If
Next sayac
kelime = ""
orjKelime = ""
kelime = ""
i = 1
i2 = i2 + 1
Next TS
End Sub
Sub dd()
Dim i As Integer
i = 1
Dim i2 As Integer
i2 = 1
Dim kelime As String
Dim orjKelime As String
For TS = 1 To 300
kelime = Left$(Range("A" & i2), 4)
orjKelime = Range("A" & i2)
Dim kelime2 As String
For sayac = 0 To 300
i = i + 1
kelime2 = Left$(Range("A" & i), 4)
If kelime2 = kelime Then
Range("A" & i) = orjKelime
End If
Next sayac
kelime = ""
orjKelime = ""
kelime = ""
i = 1
i2 = i2 + 1
Next TS
End Sub