รบกวนช่วยแก้ไขโค๊ดการวนลูปนับตัวเลขตามลำัดับ

[akekorn]

สวัสดีครับคุณคนควนและเพื่อนสมาชิก
ผมมีปัญหามารบกวนคือผมเขียนโค๊ดวางลำดับแต่เมื่อครบจำนวนตัวเลขแต่ละตัวไม่สามารถลงมาอีกบรรทัดต่อไปได้กลับขึ้นไป update ตัวเลขที่ลำดับบนอีกจึงรบกวน
ผู้รู้ทุกท่านให้ช่วยแนะนำโค๊ดให้ด้วยครับพร้อมกันนี้ได้แนบไฟด์มาให้ดูด้วยครับ
ขอบคุณครับ

เอก

Code: Select all

Sub test()

With Worksheets("StaffName")
         .Range("E2").Select
        y = .Range(Range("E2"), Range("E2").End(xlDown)).Count
        
End With

For x = 1 To y
    Range("E2").Offset(x - 1, 0).Select
    If ActiveCell.Value <> 0 Then
        Z = ActiveCell.Value
        Range("g2").Select
        For i = 1 To Z
            ActiveCell.Value = i
            ActiveCell.Offset(1, 0).Select
         Next i
    Else: End If
Next

End Sub

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub test()
    With Worksheets("StaffName")
             .Range("E2").Select
            y = .Range(Range("E2"), Range("E2").End(xlDown)).Count
    End With
    For x = 1 To y
        Range("E2").Offset(x - 1, 0).Select
        If ActiveCell.Value <> 0 Then
            Z = ActiveCell.Value
            Range("g" & Rows.Count).End(xlUp).Offset(1, 0).Select
            For i = 1 To Z
                ActiveCell.Value = i
                ActiveCell.Offset(1, 0).Select
             Next i
        End If
    Next
End Sub

[akekorn]

ใช้ได้แล้วครับขอบคุณครับผม