Cách nhập hai bảng dự liệu từ hai sheet trong file xel! (2 người xem)

[lolo0011]

Trong file đính kèm mình có bang1 nằm ở sheet 1; bang2 nằm ở sheet 2. Viết code như thế nào để coppy bảng 2 vào bảng 1. lưu ý:bang2 lấy từ A4:C10 sheet2 để cop vào vị trí ô A11:C17 ở sheet 1 ngay sau bang1. Giả sử bang1 là bảng có số hàng biến động. Trong trường hợp này bang1 từ ô A3:C10 sheet1. Nếu như bang1 từ ô A3:C25 thì code vẫn đúng!

 

[Hoàng Trọng Nghĩa]

Trong file đính kèm mình có bang1 nằm ở sheet 1; bang2 nằm ở sheet 2. Viết code như thế nào để coppy bảng 2 vào bảng 1. lưu ý:bang2 lấy từ A4:C10 sheet2 để cop vào vị trí ô A11:C17 ở sheet 1 ngay sau bang1. Giả sử bang1 là bảng có số hàng biến động. Trong trường hợp này bang1 từ ô A3:C10 sheet1. Nếu như bang1 từ ô A3:C25 thì code vẫn đúng!

Sao bạn không thử với Pivot Table? Bạn xem file nhé! Rất đơn giản mà lại linh hoạt!

 

[lolo0011]

Cảm ơn bạn. Nhưng Mình muốn bang2 được cop và dán ngay sau bang1 tại sheet1 lun. khong phải cop ra 1 sheet khác!

 

[Quang_Hải]

Trong file đính kèm mình có bang1 nằm ở sheet 1; bang2 nằm ở sheet 2. Viết code như thế nào để coppy bảng 2 vào bảng 1. lưu ý:bang2 lấy từ A4:C10 sheet2 để cop vào vị trí ô A11:C17 ở sheet 1 ngay sau bang1. Giả sử bang1 là bảng có số hàng biến động. Trong trường hợp này bang1 từ ô A3:C10 sheet1. Nếu như bang1 từ ô A3:C25 thì code vẫn đúng!

Bạn thử code này xem thế nào

Sub copy_dan()
With Sheets("sheet2")
   .Range(.[A4], .[C65536].End(3)).Copy Sheets("sheet1").[a65536].End(3).Offset(1)
   .Range(.[A4], .[C65536].End(3)).ClearContents 'Neu muon xoa du lieu cu thi dung dong nay
End With
End Sub

 

[lolo0011]

Cảm ơn bạn code rất ngắn và cũng khá hiệu quả nhưng vấn còn chưa được. Vì mình chỉ muốn cop trong phạm vi bảng 2 sang thôi. Chứ không phải cop từ ô A4:C65536 của sheet 2 sang ngay sau bảng 1.có thể dùng cách khác không bạn!

 

[Quang_Hải]

Cảm ơn bạn code rất ngắn và cũng khá hiệu quả nhưng vấn còn chưa được. Vì mình chỉ muốn cop trong phạm vi bảng 2 sang thôi. Chứ không phải cop từ ô A4:C65536 của sheet 2 sang ngay sau bảng 1.có thể dùng cách khác không bạn!

Thiệt là ngại quá, bạn chỉ cần có A4:C10 thôi... Thật là oan quá
Nếu muốn xóa dữ liệu sau khi copy thì bỏ cái dấu nháy ' đi nhé

Sub copy_dan()
With Sheets("sheet2")
   .[A4:C10].Copy Sheets("sheet1").[a65536].End(3).Offset(1)
   '.[A4:C10].ClearContents
End With
End Sub