Copy ข้อมูลที่ต้องการและไปวางบรรทัดสุดท้ายของ Sheet

[Godtheking]

ผมอยากทราบโค้ดที่หาบรรทัดสุดท้ายและวางข้อมูลที่เราสั่งให่ Copy ไว้
(ผมต้อง filter ไว้แล้ว copy ให้ vba หาบรรทัดสุดท้ายของ Sheet เพื่อจะวางครับ)

Code: Select all

Sub Copy_Data()
Dim i As Range
Dim myLastRow As Long
        Columns("A:AY").EntireColumn.Hidden = False            'To UnHide Columns B to D
    For Each i In Worksheets("Trim.V2").Range("AZ1").Cells
        myLastRow = Sheets("Trim.V2").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("Trim.V2").Range("A" & i & ":AY" & i).copy
        Sheets("Trim.V2").Range("A" & myLastRow).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next i
        Columns("AG:J,AP:AQ,AV:AX").Selection.EntireColumn.Hidden = True             'To Hide Columns B to D
End Sub

แต่โค้ดที่ผมเขียนมันไม่ได้ไปวางบรรทัดสุดท้ายแต่ไปวางต่อจากที่ที่เรา Copy ไว้

[snasui]

กรณี Filter ไว้ต้องยกเลิกการ Filter แล้วหาบรรทัดสุดท้ายแล้วค่อยวางข้อมูลครับ

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