Hỗ trợ lỗi Method 'PasteSpecial' of object 'Range' failed

[eagle12]

Xin chào các anh chị

Mình có file dữ liệu khi xử lý dữ liệu copy-paste special thì báo lỗi như này, sau đó excel bị out luôn
Nếu chạy file bên máy khác thì không sao, nhưng hiện đang chạy bên máy tính của mình thì bị báo lỗi

Xin nhờ các bác giúp đỡ
Xin chân thành cám ơn

Bạn cần đăng nhập để thấy hình ảnh

 

[lamhoang159]

bấm debug xem lỗi ở dòng nào rồi fix code ngay dòng đó thôi, sao lưu lại file trước khi thao tác sửa đổi nha.

 

[eagle12]

bấm debug xem lỗi ở dòng nào rồi fix code ngay dòng đó thôi, sao lưu lại file trước khi thao tác sửa đổi nha.

Nó báo lỗi cái chỗ copy paste value và vùng chỉ định bác à, Debug vào cái nó out luôn excel, phải mở lại
Nhưng lạ cái là files chạy trên máy khác chạy ok, máy của mình chạy không thực hiện được

total = Sheets("BB buy").[D1000000].End(xlUp).Row
sh.Range("R3:BF3").Copy Destination:=sh.Range("R5:BF" & total) --> copy công thức xuống vùng chỉ định
sh.Range("R5:BF" & total).Copy ---> copy vùng chỉ định rồi paste value
sh.Range("R5:BF" & total).PasteSpecial xlPasteValues ---> lỗi không thực hiện được lệnh, out luôn excel ( vùng này tầm ~2tr ô )
sh.Cells([Q1000000].End(xlUp).Row, "Q").Select

 

[Binana]

Nó báo lỗi cái chỗ copy paste value và vùng chỉ định bác à, Debug vào cái nó out luôn excel, phải mở lại
Nhưng lạ cái là files chạy trên máy khác chạy ok, máy của mình chạy không thực hiện được

total = Sheets("BB buy").[D1000000].End(xlUp).Row
sh.Range("R3:BF3").Copy Destination:=sh.Range("R5:BF" & total) --> copy công thức xuống vùng chỉ định
sh.Range("R5:BF" & total).Copy ---> copy vùng chỉ định rồi paste value
sh.Range("R5:BF" & total).PasteSpecial xlPasteValues ---> lỗi không thực hiện được lệnh, out luôn excel ( vùng này tầm ~2tr ô )
sh.Cells([Q1000000].End(xlUp).Row, "Q").Select

Chắc là kiểu dạng tràn bộ nhớ. Excel tự thoát. Thi thoảng mình cũng bị vậy. Có lẽ là do máy yếu.

 

[eagle12]

Chắc là kiểu dạng tràn bộ nhớ. Excel tự thoát. Thi thoảng mình cũng bị vậy. Có lẽ là do máy yếu.

Bạn trước gặp có xử lý lỗi này được không bạn, mình thử hạ excel365 về excel2016 chạy đoạn này thì ok, tuy nhiên excel2016 chạy chậm hẳn đi không chờ nổi luôn ( (do nhiều ô đọc công thức xong thì sẽ copy paste value đè lên cho nhẹ files)
Máy mình cũng không quá yếu, ram 32gb, chip i7 3.00GHz

 

[mrpio90]

Xin chào các anh chị

Mình có file dữ liệu khi xử lý dữ liệu copy-paste special thì báo lỗi như này, sau đó excel bị out luôn
Nếu chạy file bên máy khác thì không sao, nhưng hiện đang chạy bên máy tính của mình thì bị báo lỗi

Xin nhờ các bác giúp đỡ
Xin chân thành cám ơn

Bạn cần đăng nhập để thấy hình ảnh

Trước cái đoạn code copy và paste, bạn thử chỉ định worksheet active đi, cụ thể là cái worksheet mà bạn đang định paste vào ấy, worksheets("a").activate

 

[eagle12]

Trước cái đoạn code copy và paste, bạn thử chỉ định worksheet active đi, cụ thể là cái worksheet mà bạn đang định paste vào ấy, worksheets("a").activate

Cám ơn bác, mình thử thêm vào rồi vẫn bị out excel luôn bác ạ
Thử lại bằng tay copy xong đợi 1 lúc paste vào thì lúc được lúc thì không - out file excel phải mở lại file luôn, chắc do vùng ô dữ liệu này nhiều quá, ô nào cũng có hàm công thức

total = Sheets("BB buy").[D1000000].End(xlUp).Row
sh.Range("R3:BF3").Copy Destination:=sh.Range("R5:BF" & total) --> copy công thức xuống vùng chỉ định
sh.Range("R5:BF" & total).Copy ---> copy vùng chỉ định rồi paste value
sh.Range("R5:BF" & total).PasteSpecial xlPasteValues ---> lỗi không thực hiện được lệnh, out luôn excel ( vùng này tầm ~2tr ô )
sh.Cells([Q1000000].End(xlUp).Row, "Q").Select

 

[Thái Phúc]

Bạn sửa chỗ:

sh.Range("R5:BF" & total).Copy
sh.Range("R5:BF" & total).PasteSpecial xlPasteValues

Thành :

sh.Range("R5:BF" & total) = sh.Range("R5:BF" & total).Value

 

[eagle12]

Bạn sửa chỗ:

sh.Range("R5:BF" & total).Copy
sh.Range("R5:BF" & total).PasteSpecial xlPasteValues

Thành :

sh.Range("R5:BF" & total) = sh.Range("R5:BF" & total).Value

Dear bạn Thái Phúc

Cám ơn bạn nhiều, mình thử lại code ok rồi bạn à

Cám ơn bạn nha