Copy vào dòng trống kế dòng có dữ liệu (1 người xem)

[trantuonganh2008]

Cho mình hỏi mình đang có sẵn dữ liệu ở sheet 1, mình muốn copy dữ liệu ở sheet 2 sang sheet 1 vào ngay bên dưới dòng cuối cùng của vùng dữ liệu cũ thì làm thế nào (bằng macro nhé), có nghĩa là chép vào dòng trống đầu tiên của sheet 1. Cám ơn nhiều!

 

[logica]

Cho mình hỏi mình đang có sẵn dữ liệu ở sheet 1, mình muốn copy dữ liệu ở sheet 2 sang sheet 1 vào ngay bên dưới dòng cuối cùng của vùng dữ liệu cũ thì làm thế nào (bằng macro nhé), có nghĩa là chép vào dòng trống đầu tiên của sheet 1. Cám ơn nhiều!

Có phải ý bạn vầy ko?

 

[ndu96081631]

Có phải ý bạn vầy ko?

Cái gì mà lại có Do While ở đây thế trời!
Copy dử liệu ở sheet2 (ví dụ là Sheet2!A1:C10) rồi paste vào sheet1, ở dưới dòng cuối cùng có dử liệu tại cột A...
Vậy thì code sẽ thế này thôi:

Sub CopyPaste1()
  Sheet2.Range("A1:C10").Copy
  Sheet1.Range("A65536").End(xlUp).Offset(1).PasteSpecial
  Application.CutCopyMode = False
End Sub

Hoặc theo kiểu khác:

Sub CopyPaste2()
  With Sheet2.Range("A1:C10")
    Sheet1.Range("A65536").End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count) = .Value
  End With
End Sub

Theo tôi, kiểu 2 nhanh hơn kiểu 1 vì chẳng copy paste gì cả

 

[tongquangtuyen]

Mình thử copy code trên cho chạy thử thì bị báo lỗi Sub or Function not Defined.
Vậy là bị làm sao vậy Anh!

 

[trantuonganh2008]

Cho mình hỏi thêm cũng trong trường hợp như vậy nhưng ở 2 workbook khác nhau thì sửa code lại như thế nào?