[حل شده] تکمیل دستور for

[khorasan66]

لطفا ماکرو فایل پیوست را بگونه ای تکمیل نمائید که فقط مقادیر سلول های سبز در ستون d جایگزین شوند
با سپاس

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید

Sub Macro1()
    
    endrow = Cells(Rows.Count, "A").End(xlUp).Row

    k = 1
    
   For I = 1 To endrow Step 4
   
   Range("d" & k) = Range("a" & I)
   
   k = k + 1
   
   Next
    
End Sub