تکمیل دستور 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