ต้องการให้ข้อมูลรัน จะทำยังไงคะ

[tantanz]

คือใน sheet ที่ 2 ของไฟล์ จะเป็นข้อมูลค่ะ แล้วให้รันใน sheet ที่ 3

เขียน code ให้โปรแกรมทราบแล้วว่ามีจำนวนข้อมูลเท่าไหร่

แต่จะให้รันใน sheet 3 เป็นดังภาพค่ะ

[snasui]

ช่วยเล่าหลักการมาด้วยครับว่า ตัวเลข 1, 2 และ 3 ที่เรียงนั้นคิดมาจากค่าใด เนื่องจากไม่ได้สัมพันธ์กับค่าใน Sheet2 เลยครับ

[tantanz]

1 2 3 คือ จำนวนเครื่องจักรทั้งหมด หากใน sheet1 ป้อนจำนวนเครื่องจักรเพิ่มเป็น 5 เครื่อง
จะได้ ตัวเลขเป็น 1 2 3 4 5

เมื่อมี 5 เครื่องแล้วต้องการให้ sheet ออกมาหน้าตาเป็นดังรูปค่ะ

[snasui]

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

Code: Select all

Sub test()
    Dim i As Integer, j As Integer
    Dim rAll As Range
    With Sheets("Sheet2")
    Set rAll = .Range("A2", .Range("A" & Rows.Count) _
        .End(xlUp))
    j = rAll.Rows.Count
    End With
     Sheets("Sheet3").Cells.Clear
     For i = 1 To j
         With Sheets("Sheet3")
             If .Range("B1") = "" Then
                 rAll.Copy .Range("B1")
                 .Range("A1").Resize(j) = i
             Else
                 rAll.Copy .Range("B" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
               .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).Resize(j) = i
             End If
         End With
     Next i
End Sub

[tantanz]

ได้แล้วค่ะ ขอบคุณมากๆ ^^