[حل شده] اصلاح کد نوشته شده : در سطر اول تعدادی داده در سلولهاست که در سطر دوم داده ها با فاصله منظم قرار می گیرند

[mohammadi59m]

سلام به اساتید بزرگوار
اگر ممگن است فایل پیوست را اصلاح بفرمایید run می شود ولی اشکال دارد و یا با کد نویسی بهتری اگر ممکن است حل شود
این کد با for انجام می شود

سطر اول داده ها : چند عدد به تعدادی از سلولها داده می شود
سطر دوم جواب : سلولهای سطر اول را با فاصله منظم 2 یا 3 یا 4 سلول خالی از همدیگر در سطر دوم می نویسد

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.
توضیح : خانه A1 بابت تعداد فاصله خانه ها در نظر گرفته شده است و بقیه خانه ها بدون محدویت برای اعداد سری و سطر دوم هم که نمایش اعداد به فاصله دلخواه شما.

Sub AddNo()
Colno = Application.WorksheetFunction.Count(Range("A1:z1")) + 1
Rows("2:2").Clear
For iz = 2 To Colno Step 1
For Ico = 1 To (Range("a1") * Colno + Colno) Step Range("a1") + 1
    If iz >= Colno Then
    Exit Sub
    Else
   Cells(2, Ico) = Cells(1, iz)
    iz = iz + 1
 
End If
Next

Next

End Sub

موفق باشید میر

[mohammadi59m]

سلام استاد بزرگوار با تبریک سال نو و ارزوی سلامتی برای شما از کد ارسالی که زحمت کشیدید نهایت تشکر را دارم