Excel下巧妙进行VBA编程

领测软件测试网

　　 
　　Excel下巧妙进行VBA编程

焦红兵

　　最近，在做一项实验的统计时，需将十组数据的每一组中的两个数据间分成100等份，填入Excel表中，这十组数据的每一组都有100多个数据。如此巨量的工作，别用手填，就是采用Excel的自动填充大法，也得把人累个半死。于是本人就想到了VBA……

目标

1、要有灵活性，既能计算选定组的全部数据，也能计算一组中选中的连续数据。

2、将数据写在同一工作表中的空白列中。

编程代码及注释

在VBA编程窗口中新建一模块，填入代码如下：

Sub my1()注释：在这里定义宏名称
Dim i As Integer
Dim n As Integer
Dim s As Integer
n=1
Dim cellx As Range 注释：cellx是要参与计算的数据对象
Dim celly As Range 注释：celly是存放计算结果的数据对象
Application.ScreenUpdating=False
注释：在进行大量数据运算时，将屏幕更新关掉，能快很多
Set celly=Selection.Offset(,13).Cells(1)
注释：定义偏移位置，使数据目标区域能随选择区域的不同，产生自动偏移
For Each cellx In Selection注释：开始运算，直到所选择数据的最后一个
Set cellx=Cells(cellx.Row+1,cellx.Column) 注释：从原始数据列的第二行开始，第一行是标题
If Cells(cellx.Row+1,cellx.Column)=Empty Then 注释：当选择整列进行运算时，要进行是否结束循环的判断
Exit For
EndIf
Cells(celly.Row+n,celly.Column).Value=cellx.Value
注释：运算数据并填充结果
For s=1 To 100
n=n+1
Cells(celly.Row+n,celly.Column).Value=Cells(celly.Row+n-1,celly.Column).Value+(Cells(cellx.Row+1,cellx.Column).Value-Cells(cellx.Row,cellx.Column).Value)/100
Nexts
Next cellx
Application.ScreenUpdating=True注释：打开屏幕更新
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/