สอบถามการ Copy แถวข้อมูลแนวขวาทั้งหมดลงมาไว้ Column A ท้ายสุดครับ
Posted: Wed Nov 14, 2018 12:50 am
อยากสอบวิธีการ 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