birleştirme yavaş

[oydemir]

iyi günler

Sub birleştir()
Sheets("tescil").Select
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "t") <> "" Then
Cells(i, 30).Value = Cells(i, 19).Text & " " & Cells(i, 20).Text
Else
Cells(i, 30).Value = Cells(i, 19).Text
End If
Next i
End Sub

böyle bir makro kullanıyorum fakat satır sayısı 25000 bulunca yavaşlıyor daha hızlı olabilmesi için ne yapılması gerekir

 

[veyselemre]

Sub birleştir()
    Sheets("tescil").Select
    Dim v, i, rng
    Set rng = Range("AD2:AD" & Range("A" & Rows.Count).End(xlUp).Row)
    v = rng.Offset(, -11).Resize(, 2).Value
    For i = 1 To UBound(v)
        v(i, 1) = Trim(v(i, 1) & " " & v(i, 2))
    Next i
    rng.Value = v
End Sub

 

[oydemir]

elinize sağlık uçmuş
birde açıklama isteyebilir miyim sütunları nasıl değiştire bilirim. (başka sütunlarda birleşecek ) mümkünse

 

[Tevfik_Kursun]

Merhaba,
AD sütununun sütun numarası 30. 19 ve 20. sütunlardakileri birleştirmek istemişsiniz.
Veysel Hoca bu satırda v = rng.Offset(, -11).Resize(, 2).Value 11 sütun geriden itibaren 2 sütundaki hücreleri birleştir demiş.
Trim terimi de "birden çok boşluk varsa tek boşluk bırak demek"
Umarım açıklamam yeterli olmuştur
İyi çalışmalar

 

[oydemir]

çok teşekkür ederim