Çoklayarak Hücre Kopyalama

[Bagcivan]

Merhaba Arkadaşlar,
I kolonunda olan 26 satır kodu, Yanına A kolonundaki kodlar sırayla gelecek şekilde çoklamaya yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    
    s1 = 2
    s2 = 27
    a = Range("I2:I27").Value
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Range("H" & s1 & ":H" & s2).Value = Cells(i, "A")
        Range("I" & s1 & ":I" & s2).Value = a
        s1 = s1 + 26
        s2 = s2 + 26
        
    Next i
    
End Sub

. . .

 

[Bagcivan]

Hüseyin bey,
Teşekkür ederim.
İyi günler