Merge Komutu Hakkında Yardım

[MSCRoMuLuS]

Merhabalar Üstatlar,

C10: D10'dan başlayıp C5200: D5200'e kadar tüm satırları tek tek birleştirmem lazım. Bunun kolay bir döngüsü var mı bilmiyorum bana kalsa aşağıdaki şekilde 5190 satır yazmam lazım. Yardımcı olursanız çok sevinirim.
Sub merge()
Range("C10: D10").merge
Range("C11: D11").merge
Range("C12: D12").merge
Range("C13: D13").merge
Range("C14: D14").merge
Range("C15: D5").merge
End Sub

 

[Haluk]

    For i = 10 To 5200
        Range("C" & i & ":D" & i).Merge
    Next

.

 

[uzmanamele]

Merhaba

Bunun için makroya gerek yok ki?
C105200 satırlarını seçin / Yana birleştir

Kod isterseniz bunlar işinizi görür

Sub HucreBirlestir()
For i = 10 To 5200
Range("C" & i & ":" & "D" & i).merge
Next
End Sub

Sub HcrMerge()
    Range("C10:D5200").Select
    Selection.merge True
End Sub

 

[MSCRoMuLuS]

Merhaba

Bunun için makroya gerek yok ki?
C105200 satırlarını seçin / Yana birleştir

Kod isterseniz bunlar işinizi görür

Sub HucreBirlestir()
For i = 10 To 5200
Range("C" & i & ":" & "D" & i).merge
Next
End Sub

Sub HcrMerge()
    Range("C10:D5200").Select
    Selection.merge True
End Sub

Çok teşekkür ediyorum sizlere. Basitçe anlatmaya çalıştım ama diğer makroların içine entegre etmeye çalışacağım o yüzden kod kullanmam gerekti