اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً)
انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء
الكود
CODE
</p>
<pre style="text-align:start">
<span style="color:rgb(0, 0, 0)">Option Explicit
Sub CreateNumbers(rg As String, col_num As Long, max_num As Long)
Dim n As Long
Dim My_row As Long
Dim My_col As Long
ActiveSheet.Cells(6, 1).CurrentRegion.Clear
For n = 0 To max_num - 1
My_row = n \ col_num
My_col = n Mod col_num
ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1
Next n
End Sub
'==============================================
Sub give_numbers()
Call CreateNumbers(Cells(6, 1).Address, [b2], [c2])
End Sub</span></pre>
<p style="text-align:start">
الملف مرفق