การเขียนโค๊ต VBA ใน Excel ที่ส่งข้อมูลจากชีตหนึ่ง ไปอีกชีตหนึ่ง

[Wreuangsri]

ความต้องการ ให้แสดงผลของตารางที่ 1 ออกมาตามแบบตารางที่ 2 ตามไฟล์ที่แนบมา
โดยให้จัดเรียงคอลัมน์ทีว่างเรียงชิดต่อกันตามลำดับ และเป็นแถวเรียงต่อกันไปตามลำดับจนหมดข้อมูล ครับ

[Wreuangsri]

เพิ่มเติมครับ ระหว่างสองแบบ อันไหนดีกว่ากันครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub test0()
    Dim rAll As Range, r As Range
    Dim rTgAll As Range, i As Integer
    With Worksheets("Sheet1")
        Set rAll = .Range("b:w").SpecialCells(xlCellTypeConstants, 1)
    End With
    i = 1
    With Worksheets("Sheet2")
        .Range("a:x").ClearContents
        Set rTgAll = .Range("b2:w20")
        For Each r In rAll
            rTgAll(i).Value = r.Value
            i = i + 1
        Next r
    End With
End Sub[code]

[Wreuangsri]

ขอบคุณครับ