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

相关推荐
丁德双14 小时前
winform 加载 office excel 插入QRCode图片如何设定位置
c#·excel
IT铺子15 小时前
Excel 个人时间管理工具
excel
zxguan21 小时前
EasyExcel 学习之 导出 “提示问题”
学习·excel
忘忧记21 小时前
Excel批量转换不规范数据的教程
excel
神奇夜光杯21 小时前
Python酷库之旅-第三方库Pandas(200)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
火星技术1 天前
Excel快速转换文档word工具
word·excel
 嘘 1 天前
文件操作:Xml转Excel
xml·python·excel
Mr。轩。1 天前
cn.afterturn.easypoi.exception.excel.ExcelExportException: Excel导出错误 -> 修正过程。
java·excel·导出
大哇唧2 天前
python批量合并excel文件
开发语言·python·excel
IT铺子2 天前
Excel 数据分析高级建模指南
excel