สอบถามการ Copy แถวข้อมูลแนวขวาทั้งหมดลงมาไว้ Column A ท้ายสุดครับ

[primeval]

อยากสอบวิธีการ Copy ข้อมูลจากแนวขวาลงมาไว้ Column Aท้ายสุดทั้งหมด

Code: Select all

Sub Macro4()
'
' Macro4 Macro
'
Dim lastRow As String

For i = 1 To 200
    Columns(i).Select
    Range(Selection, Selection.End(xlDown)).Select
    'Range("B1").Select
    'Range(Selection, Selection.End(xlDown)).Select
    'Selection.Copy

lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & lastRow + 1).Select
Selection.PasteSpecial

Next i

End Sub

MacroSG7.xlsm

[snasui]

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

Code: Select all

Dim rall As Range, r As Range
With Sheets("Sheet5")
    Set rall = .UsedRange.Resize(1)
    For Each r In rall
        .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0) _
            .Resize(200, 1).Value = r.Resize(200, 1).Value
    Next r
End With

[primeval]

ขอบคุณครับ