ขอคำแนะนำ การเขียนสูตร VBA สำหรับการ Copy ข้อมูลหลายๆชุดครับ

[Mike123]

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

ตัวอย่าง ชุดข้อมูลที่เพิ่มขึ้นมาเรื่อยๆ

23-10-2019 1.png (20.58 KiB) Viewed 48 times

ตัวอย่างการ Copy ชุดข้อมูลที่ต้องการ

23-10-2019 2.png (55.77 KiB) Viewed 48 times

รูปแบบการ Copy ชุดข้อมูลดังรูปภาพตัวอย่างครับ
และไฟล์ Record การทำงานเบื้องต้นครับ

ขอบคุณมากครับ

[snasui]

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

Code: Select all

Sub test0()
    Dim rallName As Range
    Dim rRoom As Range
    Dim r As Range, i As Integer
    With Sheets("Sheet1")
       Set rallName = .Range("l2", .Range("l" & .Rows.Count).End(xlUp))
        Set rRoom = .Range("i2", .Range("i" & .Rows.Count).End(xlUp))
        i = rRoom.Rows.Count
        For Each r In rallName
            With .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
                .Resize(i, 1).Value = r.Value
                .Offset(0, 1).Resize(i, 1).Value = rRoom.Value
            End With
        Next r
    End With
End Sub

โปรดทราบว่าผมเขียนคำตอบมาเพราะว่ามีการพยายามทำมาก่อนแล้ว ไม่เช่นนั้นผมไม่ตอบและไม่อนุญาตให้สมาชิกตอบเป็น Code

การใช้ Code จะต้องเป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบนเท่านั้นครับ จะไม่มีการเขียนเป็นแนวทางหรือตัวอย่าง ที่อนุโลมได้คือยอมให้โพสต์ Link เพื่อให้สมาชิกที่ถามไปศึกษาเท่านั้นครับ

[Mike123]

รับทราบครับ ต้องขอบคุณอาจารย์มากๆครับ