ขอคำแนะนำVBA codeเกี่ยวกับการคัดลอกข้อมูลและนำข้อมูลมาต่อกัน(สลับแถวกันครับ)

[lotto009]

เรียนอาจาร๋ยครับ
สวัสดีปีใหม่ครับ
ขอคำแนะนำเกี่ยวกับการคัดลอกข้อมูลและนำข้อมูลมาต่อกัน(สลับแถวกันครับ)
1.ต้องการใช้ข้อมูล ในคอลัมภ์ B มาต่อท้าย คอลัมภ์ A(สลับกัน) (ในงานจริงไม่สามารถกำหนด Range ข้อมูลคอลัมภ์ Bได้ครับ)แต่คอลัมภ์ Aจะเท่ากับ คอลัมภ์ Bเสมอ
2.ต้องการใช้ข้อมูล ในคอลัมภ์ A มาต่อท้าย คอลัมภ์ B(สลับกัน)
(ในงานจริงไม่สามารถกำหนด Range ข้อมูลคอลัมภ์ Bได้ครับ)แต่คอลัมภ์ Aจะเท่ากับ คอลัมภ์ Bเสมอ
บางทีจำนวนมากกะไม่ถูกครับ
เราจะเขียนอย่างไรครับ
ผมแนบcodeและไฟล์มาด้วยครับ
เราจะเริ่มcopyบรรทัดที่ 3
ขอบพระคุณมากครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim Results As Worksheet
    Set Results = Sheets("data")
    LastRow = Results.Cells(Results.Rows.Count, "A").End(xlUp).Row
    
    Range("A3:A8").Copy 'start@A3
    Results.Range("B" & LastRow + 1).PasteSpecial xlPasteAll


    Range("B3:B8").Copy 'start@B3
    Results.Range("A" & LastRow + 1).PasteSpecial xlPasteAll


End Sub

[snasui]

ไม่พบไฟล์แนบ กรุณาแนบไฟล์มาอีกรอบครับ

[lotto009]

ขอโทษครับ มาแล้วครับ

[logic]

แบบนี้ไหมครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim Results As Worksheet
    Set Results = Sheets("data")
    LastRow = Results.Cells(Results.Rows.Count, "B").End(xlUp).Row
    
    Range("A3:A" & LastRow).Copy 'start@A3
    Results.Range("B" & Results.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll


    Range("B3:B" & LastRow).Copy 'start@B3
    Results.Range("A" & Results.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
    
    Application.CutCopyMode = False
End Sub

[lotto009]

WOWWWW
ขอบคุณมากครับ ผมติดตั้งนานเลย