Excel - Một macro để sao chép và dán dữ liệu vào ô trống tiếp theo

Vấn đề

Tôi có hai tờ trong một bảng tính. Sheet1 là tóm tắt và Sheet2 dành cho dữ liệu thô. Tôi cần cập nhật / chèn / sao chép dữ liệu trong Sheet2 sang Sheet1. Dưới đây là mã macro mẫu:

 Sub Summarize () Range ("A6: AT6"). Chọn Selection.Copy Sheets ("Cải thiện Nhật ký"). Chọn Phạm vi ("B283"). Chọn Lựa chọn Sai, Transpose: = Sai Phạm vi ("B283"). Chọn End Sub 

Đoạn mã trên đang hoạt động nhưng mỗi khi tôi thay đổi dữ liệu trong Sheet2, Sheet1 chỉ thay thế dữ liệu của nó. Những gì tôi cần là mỗi khi tôi thay đổi dữ liệu trong Sheet2, nó sẽ được thêm vào (chắp thêm) trong Sheet1.

Dung dịch

Bạn cần biết hàng được sử dụng cuối cùng. Ở đây Phạm vi ("B283"). Chọn tìm ô được sử dụng cuối cùng trong cột B và sau đó chọn một ô bên dưới nó

 lMaxRows = Cells (Rows.Count, "B"). End (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Cảm ơn rizvisa1 cho mẹo này.