楼主:
ilf0121 (思想的崛起)
2022-11-24 02:57:57EXCEL
各位大神们好
本码作用是复制A档的特定字段资料贴上到B档
但执行的时候 是这样跑的
复制A档目标1 然后 贴上 到B档指定字段
复制A档目标2 然后 贴上 到B档指定字段
复制A档目标3 然后 贴上 到B档指定字段
这样造成 这段工作的时间 A档跟B档都卡顿了
因为A档持续在工作中，忽然这样卡顿一下挺痛苦的
请问能不能先直接全部复制A档要的资料然后再贴到B档
这样跑起来看卡顿会不会比较快一点
拜托各位大神指教！！ 感激
Sub 复制()
Dim MC As String, MV As String
MC = "A档" '设定变量要复制的档案
MV = "B档" '设定变量要贴上的档案
Application.OnTime Now + TimeValue("00:05:00"), "复制" '每5分钟执行1次
Workbooks(MC).Worksheets("库存").Range("A1:C3000").Copy
Workbooks(MV).Worksheets("库存").Range("A1").PasteSpecial xlPasteValues
'只贴值不含公式和格式
Workbooks(MC).Worksheets(MC).Range("A5:E3000").Copy
Workbooks(MV).Worksheets("月").Range("A5").PasteSpecial xlPasteValues
Workbooks(MC).Worksheets(MC).Range("G5:G3000").Copy
Workbooks(MV).Worksheets("月").Range("F5").PasteSpecial xlPasteValues
Workbooks(MC).Worksheets(MC).Range("I5:I3000").Copy
Workbooks(MV).Worksheets("月").Range("G5").PasteSpecial xlPasteValues
Workbooks(MC).Worksheets(MC).Range("M5:P3000").Copy
Workbooks(MV).Worksheets("月").Range("H5").PasteSpecial xlPasteValues
Workbooks(MC).Worksheets(MC).Range("T5:Y3000").Copy
Workbooks(MV).Worksheets("月").Range("L5").PasteSpecial xlPasteValues
End Sub
楼主:
ilf0121 (思想的崛起)
2022-11-25 02:24:00谢谢大神们的指示 这边来研究一下 有了指引 就有方向了请问L大大 可以这样写吗Workbooks(MV).Worksheets("库存").Range("A1") =Workbooks(MC).Worksheets("库存").Range("A1:C3000").Value 但写这样无法运作 请问需要用什么语法？ 谢谢大神请问N大 可以写不能执行，需要怎么改呢？ 谢谢N大Workbooks(MC).Worksheets("库存").Union(Range("A1:C3000"), Range("A5:E3000"), Range("G5:G3000"), Range("I5:I3000"), Range("M5:P3000"), Range("T5:Y3000")).CopyWorkbooks(MV).Worksheets("库存").Union(Range("A1"), Range("A5"), Range("F5"), Range("G5"), Range("H5"), Range("L5")).PasteSpecial xlPasteValues