Giúp chép dữ liệu vào dòng cuối của bảng (1 người xem)

[codockhach]

Chào các bạn!
Do kiến thức hạn chế, tham khảo cũng nhiều mà chưa làm được nên mạo muội nhờ các bạn giúp cho vài dòng code VBA : chép dử liệu từ dòng cố định paste vào dòng cuối của bảng bên dưới (trên cùng 1 sheet). Ví dụ trong file đính kèm
Chân thành cám ơn AE giúp đở!

 

[LamNA]

Chào các bạn!
Do kiến thức hạn chế, tham khảo cũng nhiều mà chưa làm được nên mạo muội nhờ các bạn giúp cho vài dòng code VBA : chép dử liệu từ dòng cố định paste vào dòng cuối của bảng bên dưới (trên cùng 1 sheet). Ví dụ trong file đính kèm
Chân thành cám ơn AE giúp đở!

Bạn thử

Sub test()
[A12:G12].Value = [A2:G2].Value
End Sub

 

[codockhach]

Sub test() [A12:G12].Value = [A2:G2].Value End Sub

Không được bạn ơi, bị chép đè không nối được dữ lieu cũng như không lấy được định dạng.

 

[codockhach]

Có lẻ do mình diễn đạt không thoát ý.
Xin diễn đạt rỏ hơn như sau : khi nhấn cập nhật thì sẽ định vị dòng cuối cùng của bảng để paste vào dòng kế tiếp (dạng nối dữ liệu).

 

[SA_DQ]

Sub Thêm_Dòng_Du_Liêu()
Dim lRw As Long
1 ' Xác Dinh Dòng Cuoi Chúa Du Liêu:             '
  lRw = Cells(Cells.Rows.Count, "A").End(xlUp).Row
2 ' Chép Xuông:         '
  Rows(lRw + 1 & ":" & lRw + 1).Value = Rows("2:2").Value
End Sub

 

[codockhach]

Sub Thêm_Dòng_Du_Liêu()
Dim lRw As Long
1 ' Xác Dinh Dòng Cuoi Chúa Du Liêu:             '
  lRw = Cells(Cells.Rows.Count, "A").End(xlUp).Row
2 ' Chép Xuông:         '
  Rows(lRw + 1 & ":" & lRw + 1).Value = Rows("2:2").Value
End Sub

Cám ơn bác. Code chạy rất tốt, các việc khác tôi sẽ chạy macro nối vào để hoàn thiện.
Một lần nữa cám ơn bác tận tình diễn giải các dòng code (rất quý đối với những kẻ tự mò mẫm như tôi). Chúc bác một ngày tốt lành!