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

相关推荐
偷心伊普西隆12 小时前
EXCEL VBA 清空Excel工作表(Sheet)的方法
microsoft·excel
Coding_Doggy18 小时前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t1 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu2 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜2 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
Access开发易登软件2 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表2 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
UrbanJazzerati3 天前
掌握 xlwings 的 used_range:高效处理 Excel 数据区域
python·面试·excel
m0_555762903 天前
Excel ——INDEX + MATCH 组合
excel
焚 城3 天前
Excel数据导出小记二: [大数据示例]
大数据·excel