Tăng tốc code VBA khi coppy, paste

[ThaiDieuAnh]

Trước em hay dùng code

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").PasteSpecial
Application.CutCopyMode = False

Giờ thay bằng:

Sheet1.Range("A1:F1000").Copy Destination:=Sheet2.Range("A1")

em thấy code được cải thiện về tốc độ rất đáng kể, tuy nhiên với kiểu coppy chèn hàng kiểu:

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False

thì rất chậm mà không biết cách để sửa đoạn code này tốc độ tốt hơn, mong các anh chị giúp đỡ. Em xin cảm ơn

 

[befaint]

Nếu lấy giá trị thôi thì:

Sub PasteValue
Dim arr
arr=Sheet1.Range("A1:F1000").value
Sheet2.Range("A1").Resize(Ubound(arr,1),Ubound(arr,2)).Value = arr
End Sub

 

[be_09]

Trước em hay dùng code

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").PasteSpecial
Application.CutCopyMode = False

Giờ thay bằng:

Sheet1.Range("A1:F1000").Copy Destination:=Sheet2.Range("A1")

em thấy code được cải thiện về tốc độ rất đáng kể, tuy nhiên với kiểu coppy chèn hàng kiểu:

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False

thì rất chậm mà không biết cách để sửa đoạn code này tốc độ tốt hơn, mong các anh chị giúp đỡ. Em xin cảm ơn

Thử vầy:

Sub PasteNhanh()
     Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
End Sub

 

[ThaiDieuAnh]

Thử vầy:

Sub PasteNhanh()
     Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
End Sub

Cảm anh anh be09, nhưng em muốn là Insert Copied Cells anh ạ, với lại có cách nào coppy mà giữ nguyên chiều cao hàng không anh

 

[giaiphap]

Cảm anh anh be09, nhưng em muốn là Insert Copied Cells anh ạ, với lại có cách nào coppy mà giữ nguyên chiều cao hàng không anh

Tại sao lại phải làm khó nhau vậy, Excel thì mình nhập liệu từ trên xuống chứ tại sao lại chen vào giữa trong khi phía dưới còn rất nhiều hàng (Trừ một số trường hợp cần sắp xếp thứ tự mà không thể thêm vào phía dưới). Bạn nêu nguyên nhân nếu phù hợp có thể đổi sang cách khác để giải quyết vấn đề.

 

[ThaiDieuAnh]

Tại sao lại phải làm khó nhau vậy, Excel thì mình nhập liệu từ trên xuống chứ tại sao lại chen vào giữa trong khi phía dưới còn rất nhiều hàng (Trừ một số trường hợp cần sắp xếp thứ tự mà không thể thêm vào phía dưới). Bạn nêu nguyên nhân nếu phù hợp có thể đổi sang cách khác để giải quyết vấn đề.

Đúng rồi anh ạ, bình thường thì em vẫn giải quyết vấn đề như trong bài #1, nhưng cái này cần chèn giữa cần trên và cận dưới đã có dữ liệu nêm áp dụng code

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False

Tuy nhiên em cảm thấy chạy rất chậm, không giống kiểu coppy paste kia. Nên em muốn nhờ anh chị hướng dẫn sửa code đó ạ. Cảm ơn anh

 

[be_09]

Đúng rồi anh ạ, bình thường thì em vẫn giải quyết vấn đề như trong bài #1, nhưng cái này cần chèn giữa cần trên và cận dưới đã có dữ liệu nêm áp dụng code

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False

Tuy nhiên em cảm thấy chạy rất chậm, không giống kiểu coppy paste kia. Nên em muốn nhờ anh chị hướng dẫn sửa code đó ạ. Cảm ơn anh

Nếu muốn nhanh thì cách đơn giản nhất là cứ nhập liệu theo chiều dọc sau đó Sort nó theo trình tự nào đó.
Khi dữ liệu không cố định số dòng thì không nên nghĩ đến cái vụ Insert, vì phải tra tìm đến chỗ cần rồi tính đến số dòng cần Insert có khi tốc độ code còn chậm hơn.

 

[ThaiDieuAnh]

Nếu muốn nhanh thì cách đơn giản nhất là cứ nhập liệu theo chiều dọc sau đó Sort nó theo trình tự nào đó.
Khi dữ liệu không cố định số dòng thì không nên nghĩ đến cái vụ Insert, vì phải tra tìm đến chỗ cần rồi tính đến số dòng cần Insert có khi tốc độ code còn chậm hơn.

Em xin gửi file giả định trường hợp của em lên, mong anh chị giúp đỡ (Yêu cầu em ghi rõ trong File). Em xin cảm ơn

 

[VetMini]

Chậm nhiều không? Tức là khác nhau bao nhiêu phút?
Nếu chỉ chậm 1 chút xíu thì bận tâm làm gì. Copy dữ liệu thì sự chính xác và khả năng uyển chuyển mới quan trọng. Bày biện chạy cho lẹ nhưng mỗi lần có sự thay đổi nhu cầu lại phải chỉnh 1 đống code, thử đi thử đi thử lại chính xác, thậm chí bí, gửi lên diễn đàn chờ trả lời thì thực là chả bõ công.

 

[be_09]

Em xin gửi file giả định trường hợp của em lên, mong anh chị giúp đỡ (Yêu cầu em ghi rõ trong File). Em xin cảm ơn

Đọc xong chẳng hiểu, làm đại hên thì trúng:
1/ Tại sheet Bang In khi thay đổi dữ liệu thì nhấn nút nhập liệu thì nó lưu cái bảng ở sheet Link.
2/ Nhấn nút nhập liệu lần 2, 3, 4..... thì nó Paste liên tiếp xuống.

 

[Cônghậu42]

Trước em hay dùng code

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").PasteSpecial
Application.CutCopyMode = False

Giờ thay bằng:

Sheet1.Range("A1:F1000").Copy Destination:=Sheet2.Range("A1")

em thấy code được cải thiện về tốc độ rất đáng kể, tuy nhiên với kiểu coppy chèn hàng kiểu:

Sheet1.Range("A1:F1000").Copy
Sheet2.Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False

thì rất chậm mà không biết cách để sửa đoạn code này tốc độ tốt hơn, mong các anh chị giúp đỡ. Em xin cảm ơn

cho em xin mã code hoàn chỉnh để copy phần bôi vàng trong sheet N3 rồi insert copied cell vào các sheet khác với ạ