excel表格数据量很大时如何提高vba的效率

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel表格数据量很大时如何提高vba的效率相关的知识,希望对你有一定的参考价值。

工作需要我写了一段vba将工作表格中零散的数据集中显示,大部分操作都是单元格赋值,但当我把写好的代码移植到实际工作表格时,由于表格中数据量很大,大概一万多行,几百列,运行起来非常慢,有没有办法提高vba在这种大数据量情况下的效率

1、首先在电脑桌面中,鼠标右键鼠标,新建一个excel工作簿并打开。

2、创建一个简单的表格,并输入一些字符串,比如衣服购买表格,如下图所示。

3、接着,鼠标左键单击【开发工具】菜单标签,并单击VBA按钮,如下图所示。

4、然后,在VBA编辑的代码窗口中,鼠标右键单击表格,选择添加用户窗体,如下图所示。

5、接着,在用户窗体上,选择工具箱中的【按钮】,如下图所示。

6、接着,鼠标右键选择【添加代码】,在代码窗口上,输入VBA代码,比如读取表格中的数据,给出消息提示,如下图所示。

7、最后,在设计窗口上,鼠标左键单击用户窗体上的按钮,可以看到表格中提示读取表格中数据的提示,如下图所示。

参考技术A 方法1:尽量使用VBA原有的属性、方法和Worksheet函数
  由于Excel对象多达百多个,对象的属性、方法、事件多不胜数,对于初学者来说可能对它们不全部了解,这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA代码段,而这些代码段的运行效率显然与Excel对象的属性、方法完成任务的速度相差甚大。例如用Range的属性CurrentRegion来返回Range 对象,该对象代表当前区。(当前区指以任意空白行及空白列的组合为边界的区域)。同样功能的VBA代码需数十行。因此编程前应尽可能多地了解Excel对象的属性、方法。
  充分利用Worksheet函数是提高程序运行速度的极度有效的方法。如求平均工资的例子:
  For Each c In
  Worksheet(1).Range(″A1:A1000″)
  TotalValue = TotalValue + c.Value
  Next
  AverageValue = TotalValue / Worksheet(1).Range(″A1:A1000″).Rows.Count
  而下面代码程序比上面例子快得多:
   AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))
  其它函数如Count,Counta,Countif,Match,Lookup等等,都能代替相同功能的VBA程序代码,提高程序的运行速度。
方法2:尽量减少使用对象引用,尤其在循环中
  每一个Excel对象的属性、方法的调用都需要通过OLE接口的一个或多个调用,这些OLE调用都是需要时间的,减少使用对象引用能加快VBA代码的运行。例如
  1.使用With语句。
  Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...
 则以下语句比上面的快
  With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
   .Name = ″Pay″
   .FontStyle = ″Bold″
   ...
  End With
(在With内部执行时,VB将在内存中维护一个临时对象,既如下面方法中一样相当于使用了一个临时变量,只是该临时变量是由系统定义系统命名的变量)
  2.使用对象变量。
  如果你发现一个对象引用被多次使用,则你可以将此对象用Set 设置为对象变量,以减少对对象的访问。如:
   Workbooks(1).Sheets(1).Range(″A1″).Value = 100
   Workbooks(1).Sheets(1).Range(″A2″).Value = 200
  则以下代码比上面的要快:
  Set MySheet = Workbooks(1).Sheets(1)
  MySheet.Range(″A1″).Value = 100
  MySheet.Range(″A2″).Value = 200
  3.在循环中要尽量减少对象的访问。
  For k = 1 To 1000
   Sheets(″Sheet1″).Select
   Cells(k,1).Value = Cells(1,1).Value
  Next k
  则以下代码比上面的要快:
  Set TheValue = Cells(1,1).Value
  Sheets(″Sheet1″).Select
  For k = 1 To 1000
   Cells(k,1).Value = TheValue
  Next k
方法3:减少对象的激活和选择
  如果你的通过录制宏来学习VBA的,则你的VBA程序里一定充满了对象的激活和选择,例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事实上大多数情况下这些操作不是必需的。例如
  Sheets(″Sheet3″).Select
  Range(″A1″).Value = 100
  Range(″A2″).Value = 200
  可改为:
  With Sheets(″Sheet3″)
   .Range(″A1″).Value = 100
   .Range(″A2″).Value = 200
  End With
  方法4:关闭屏幕更新
  如果你的VBA程序前面三条做得比较差,则关闭屏幕更新是提高VBA程序运行速度的最有效的方法,缩短运行时间2/3左右。关闭屏幕更新的方法:
  Application.ScreenUpdate = False
  请不要忘记VBA程序运行结束时再将该值设回来:
  Application.ScreenUpdate = True
  以上是提高VBA运行效率的比较有效的几种方法。
参考技术B 1、使用application.screenupdate,先 关闭屏幕更新,结束时打开;使用application.EnableEvents,先关闭事件的触发,结束时再打开
2、楼上 金融系统 说的很好,使用SpecialCells选择方法,可以剔除许多不需要的数据
3、尽量少使用单元格直接参与计算,多使用变量和数组变量,先将数据读入变量或数组变量,对变量进行运算
4、将单元格区域分块,比如,可以先读取一列,复制给数组,处理完了,再将数组的值一次性赋值给其他单元格,然后再将下一列读到这个数组……
5、尽量减少代码中的 select、activate、等没什么用的动作,直接使用 “.” 点符号取值或赋值
6、尽量使用with 语句,减少对象的读取动作
7、暂时想到这么多,……
最重要的一点:优化算法,减少循环次数,这就得看你的具体操作是什么了……

这都是我的经验啊,何况打了这么多字,楼主不但要采纳,还得加分啊~~~本回答被提问者和网友采纳
参考技术C 禁止闪屏 可以提高很多效率,其他就要优化算法
禁止闪屏代码如下
Sub a()
Application.ScreenUpdating = False
'''''''''''''''''''''''''''''''''''''''''''''原有代码''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = True
End Sub
参考技术D 在声明数据的后面加上
application.screenupdate = flase
在最后再还原
appliaction.screenupdate = true

然后具体的算法优化就要看你的代码了,如果是这个矩形区域中有很多空的没用的单元格,可以这样循环
For Each c In m.UsedRange.SpecialCells(xlCellTypeConstants)
next

Excel数据量太大,用VBA运算依然会耗时太久,运行很慢,该怎么办?

Excel中数据量有一百万+条需要计算处理,自己学习VBA后编写的公式计算,但是计算公式也非常多,可能自己学习的不精通导致编写的公式太复杂了,导致每次运行VBA程序后Excel白屏,但是从任务管理器中查看电脑并没有卡死崩溃,不过耗时几个小时后依然没有运算完成。
所以想请教,数据量这么大的Excel表格用VBA运算是否还合适呢?有没有其他的工具呢?
百度查看说用数据库处理超大量数据更合适一些,那么用Access或者SQL数据库能否完成复杂公式运算的操作呢?

给你个建议,把所有需要读写工作表的操作,用数组表达,尽量减少读写工作表的语句。
这样让更多的操作在内存中进行,而不是在硬盘上进行。这中间的差异是天壤之别。我原来写的一个提取内容的sub,提取一个填写一个,总用时2分40秒。
然后我把要提取的东西全都赋值给数组,完事以后一次填写一行,或者完事后一下填写完,
结果只用了7秒。
参考技术A 把数据一次性或者分批放到数组进行运算,速度快很多。不要边读取单元格内容(数据)边进行运算,这样会很慢的。本回答被提问者采纳 参考技术B 如果擅长c#的话,可以使用多线程技术尝试一下 参考技术C 有一百万+数据确实比较多了,不过代码也可能优化,不过要几个小时也太夸张了!如果不复杂可以发来看看,如果太复杂,我也不想看了!哈哈追问

非常感谢,代码就不发了,确实非常非常复杂,因为运算的内容太多了!我自己看着都头疼。我在想,除了Excel是否可以用其它工具来计算处理呢,比如数据库?对数据库不了解所以也不懂数据库的功能如何。总之还是非常感谢你!

以上是关于excel表格数据量很大时如何提高vba的效率的主要内容,如果未能解决你的问题,请参考以下文章

excel 运行VBA效率变低了 原来excel运行VBA程序,很快就执行完毕,现在运行相同的程序,效率变得很慢

vba程序从excel表格读取数据(数据量=2000行),程序运行时特别慢,怎么解决?

Excel VBA 比较两个表格的不同?

如何提高效率SQLite大数据量操作效率

excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决

vba模拟鼠标点击_利用VBA开发数据汇总工具