VBA实现关闭Excel自动计算,关闭屏幕刷新

Excel代码提速神器

涉及到提取表格大量数据操作,复制粘贴多个单元格时,尽量避免一个个单元格提取,或者一行行一列列提取数值,设计大量IO流操作非常浪费时间。尽量找出数据之间的规律,批量选中复制粘贴,找到利用双指针或者其他算法找到连续行或者列的规律进行批量操作。往往能几十倍的提升代码运行效率,一下

批量复制行列

连续行列复制

Range("A1:B3")

间隔行列复制

选中多行

粘贴后

选中区域顺序按照原先顺序

Dim MyArea1, MyArea2, MyArea3 As Range

Set MyArea1 = Range("A1:B3")

Set MyArea2 = Range("A7:B10")

Set MyArea3 = Range("A12:B14")

Application.Union(MyArea1, MyArea2, MyArea3).Select

转置粘贴

粘贴->选择粘贴->转置

c 复制代码
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

关闭屏幕刷新

Application.ScreenUpdating = False

Application.ScreenUpdating = True

关闭公式自动计算

Application.Calculation = xlManual

Application.Calculation = xlCalculationAutomatic

相关推荐
刘_sy7 小时前
使用EasyExcel和多线程实现高效数据导出
java·excel·easyexcel·批量导出excel
PowerBI学谦13 小时前
Copilot:Excel中的Python高级分析来了
python·excel·copilot
E-iceblue2 天前
Python 合并 Excel 单元格
python·excel·合并
sszdzq2 天前
Excel 合并列数据
excel
prince_zxill2 天前
Excel中不用复杂公式根据指定X列的数值N复制整行数据N行简单方法
excel
VBAMatrix3 天前
DeepSeek操作Excel,实现图表自动化生成
运维·自动化·excel·wps·deepseek
一醉千秋3 天前
excel中单元格字符串提取数字累加
excel
VB.Net3 天前
19.4.9 数据库方式操作Excel
数据库·c#·excel
真就死难3 天前
CSV格式和普通EXCEL格式文件的区别
linux·excel
朵朵zeng3 天前
Excel文件的读取
python·excel