Xin giúp đỡ sửa code VBA copy & paste có meger cell

[TU DONG]

Mình cần copy vùng dữ liệu R:S tới X:Y
Nếu vùng R:S không có Merge Cell thì nó Paste Values, mà có Merge Cell thì nó paste công thức ạ. Mong các bạn sửa code giúp mình với ạ

Sub COPY()
Columns("R:S").COPY
Columns("X:Y").Insert
Columns("X:Y").PasteSpecial Paste:=xlPasteValues
End Sub

 

[Hoàng Trọng Nghĩa]

Bạn cần ghi rõ tiêu đề rõ ràng, trọng tâm, ghi chung chung như vậy sẽ bị cho là phạm quy. Và như thế sẽ không có người giúp, thậm chí còn bị xóa bài.
Bạn sửa tiêu đề lại đi nhé.

 

[Maika8008]

Mình cần copy vùng dữ liệu R:S tới X:Y
Nếu vùng R:S không có Merge Cell thì nó Paste Values, mà có Merge Cell thì nó paste công thức ạ. Mong các bạn sửa code giúp mình với ạ

Sub COPY()
Columns("R:S").COPY
Columns("X:Y").Insert
Columns("X:Y").PasteSpecial Paste:=xlPasteValues
End Sub

1/ Nếu không merge cell thì tất nhiên dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues được thi hành.
2/ Nhưng khi có merge cell thì chắc chắn sẽ bị báo lỗi ở dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues chứ và code bị dừng ở Columns("X:Y").Insert và sẽ chứa công thức trong cột X:Y. Dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues không đóng vai trò gì trong đó nữa.
3/ Tại sao bạn lại không thấy báo lỗi trong trường hợp merge cell? Tôi đoán là bạn chỉ trích ra 3 dòng để đưa lên hỏi chứ thực ra trước đó code có chứa dòng On Error Resume Next.

 

[TU DONG]

1/ Nếu không merge cell thì tất nhiên dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues được thi hành.
2/ Nhưng khi có merge cell thì chắc chắn sẽ bị báo lỗi ở dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues chứ và code bị dừng ở Columns("X:Y").Insert và sẽ chứa công thức trong cột X:Y. Dòng Columns("X:Y").PasteSpecial Paste:=xlPasteValues không đóng vai trò gì trong đó nữa.
3/ Tại sao bạn lại không thấy báo lỗi trong trường hợp merge cell? Tôi đoán là bạn chỉ trích ra 3 dòng để đưa lên hỏi chứ thực ra trước đó code có chứa dòng On Error Resume Next.

Mong bạn giúp đỡ, mình không biết về VBA, cái code trên mình tự mò, không hiểu bản chất
Mình đã thêm cả dòng:
Columns("X:Y").PasteSpecial Paste:=xlPasteFormats
Mà nó vẫn không được
Mình không trích code. Code mình tự mò nên chỉ có vậy thôi ạ. Mong các bạn chỉ mình với nhé

Bài đã được tự động gộp: 12/8/21

Mình đã mò được rồi, cám ơn các bạn