vba xlsm在两个桌面上崩溃共享文件

Question

运行时错误2147417848-80010108 对象工作表的方法粘贴失败。

当我在两个桌面上同时打开文件时，会发生此错误。然后每次运行代码时都会发生。 代码真的很大，所以不能粘贴在这里。 我只会粘贴出现问题的行

rrr=4
set rng1 = worksheets(2).range("x1:cd1").find(format(date,,xlvalues,xlwhole)
If not rng1 is nothing then
Worksheets("--").activate
Worksheets("--").cells(rrr,rng1.column).select
Activesheet.paste
End if

Answer 1

我通常会尽量避免复制/粘贴。相反，看看是否直接分配值。

Dim copyRng As Range, pasteRng As Range
Set copyRng = ' Your copy range here
Set pasteRng = Worksheets("--").Cells(rrr, rng1.Column)

pasteRng = copyRng.Value    

复制/粘贴通常会出现性能问题，尤其是在使用大量数据时。