EXCEL
各位大神们好
本码作用是复制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

应该可以直接=指定value过去

改字段用阵列改资料摆放4.依个案,随机应变5.sql

善用Union把范围都先选好，一次完成

谢谢大神们的指示 这边来研究一下 有了指引 就有方向了请问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

直接assign的方式，前后范围大小要一样https://i.imgur.com/92GzWgX.png

实在太感激N大神！用下面这个方法几乎不用执行等待时间！

Newacc的写法很赞 留下来未来有需要用到