利用excel中vba的工作表事件进行数据的自动计算

1、例如，在工作表的A列有一些不规律的数据混合运算，我们需要将运算结果计算出来并且放置在B列。通常我们需要一个一个在A列中将数据复制下来，然后在B列中录入等号，再粘贴A列数据，就能完成计算工作，但是，当A列数据量大至几百几千甚至更多时，这种方法是不可取。这时，我们用触发工作表事件的vba代码来完成就比较简便了。

3、点击【工程--VBAProject】下方【Microsoft Exeel对象】下我们要计算数据所在的工作表，此例中是名称为【sheet1】的工作表，然后点击右侧代洁船诼抨码窗口对象框内下拉箭头，注意选择【worksheet】，右侧框内就会自动调出【selectionchange】（也可以点击右侧框内下拉箭头调出selection change）。这时，在代码区，就会自动出现：Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub

4、将代码添加中间内容成为下列代码：Private Sub Worksheet_SelectionChange(蚱澄堆别ByVal Target As Range)Dim rsrs = Application.CountA(Columns(1))If Target.Address = Range("a1:a" & rs).Address ThenFor i = 2 To rsCells(i, 2) = "=" & Cells(i, 1)NextEnd IfEnd Sub

6、不仅如此，我们的代码还能动态自动计算呢。我们在A10下方单元格中添加任意多的数据算式，为演示的方便，本例中我们添加了3个至A13单元格。