Sütun Birleştirme

[airborne]

s.a.

Forumda bulduğum kodlarla iki hücre birleştiriyorum. iki sütunu birleştirmek için nasıl bir düzenleme yapılabilir.


Kodlar:

Sub birles59()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("test")
s1.Range("G2").Value = s1.Range("A2").Value & " " & Range("B2").Value
End Sub

Selametle..................

 

[Feylosof]

Merhaba
Sanırım bu işinizi görür.

Sub birleştir()
son = Range("b65500").End(xlUp).Row
For i = 2 To son
Cells(i, "A").Value = Cells(i, "B").Value & " " & Cells(i, "C").Value
Next
End Sub

 

[airborne]

s.a.

Allah Razı Olsun Üstad.

 

[Feylosof]

Allah sizden de razı olsun. Lakin ben üstad değilim. Gerçek üstatların olduğu bu forumda onlara talebe olmaya çalışıyorum.

 

[Korhan Ayhan]

Döngü kullanmadan alternatif;

Option Explicit

Sub Multi_Cells_Concatenate()
    Range("G2:G" & Rows.Count).ClearContents
    With Range("G2:G" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = "=A2&B2"
        .Value = .Value
    End With
End Sub