EXCEL2010 想利用VBA做一个大批量的复制粘贴工作，运行速度很慢。如何精简？

Question

Sub 基础数据更新()

'基础数据更新'

Application.ScreenUpdating = fale

Workbooks.Open Filename:="基础数据.xlsx"

'清单'

Windows("基础数据.xlsx").Activate

Sheets("清单")..Select

ActiveSheet.Range("A2:v10240").Select

Selection.Copy

Windows("模板.xlsm").Activate

Sheets("清单")..Select

ActiveSheet.Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Answer 1

Sub 基础数据更新()

'基础数据更新'

Application.ScreenUpdating = fale

Workbooks.Open Filename:="基础数据.xlsx"

'清单'

Windows("基础数据.xlsx").Activate

Sheets("清单")..Select

arr=ActiveSheet.Range("A2:v10240").value

Windows("模板.xlsm").Activate

Sheets("清单")..Select

ActiveSheet.Range("A2")=arr追问

不好意思，刚才有一点貌似没说明白。

你写的这个复制过去，格式是如何处理的，只保留文字 还是格式全覆盖成新的。

追答

只保留文字，格式没有了。。

本回答被提问者采纳