สอบถามเกี่ยวกับ Excel สามารถ นับจำนวนวนแล้ว copy มาปริ้นได้ไหม

ขอบคุณค่ะ

มีตัวอย่างการใช้ VBA macro ไหมค่ะ

ไม่เคยใช้เลยค่ะ ต้องศึกษาใหม่ ถ้าทำได้ก็ไม่เขียนโปรแกรมใหม่ค่ะ

ขอบคุณมากค่ะ

รบกวนอีกนิด
จำนวน 1 แต่ทำไมขึ้น 2 ค่า ต้องการให้ขึ้นค่า เดียวนะค่ะ

Sub test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1


For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i - 1 'โทษทีครับตอนรันก็ลืมดู แก้ให้แล้วนะครับ
Sheet1.Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next
End Sub

ขอบคุณมากค่ะ

ขอรบกวนอีกนะค่ะ
ถ้าเป็น 2 จะขึ้น 2 ค่า แต่ถ้าแก้เป็น 1 จะให้ลดเหลือ 1 ยังไงค่ะ
หรือเป็นเคลียแล้ว กด button ใหม่ก็ได้

Sub Test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1
Worksheets.Add().Name = "Worksheets_" & Worksheets.count + 1 //ให้ไปอยู่ใน Worksheets อื่นซะเลย 5555

For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i - 1 'â·É·Õ¤ÃѺµÍ¹Ãѹ¡çÅ×Á´Ù á¡éãËéáÅéǹФÃѺ
Worksheets("Worksheets_" & Worksheets.count).Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next

End Sub