1、打开Excel表格后，点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。
2、在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3、在代码框里边输入以下VBA程序代码：
Sub AverageValue()
Dim i, j, c, co, su, bo
On Error Resume Next '忽略运行过程中出现的错误
Application.ScreenUpdating = False '关闭运行过程中屏幕刷新，提高运行速度
Set mysheet1 = ThisWorkbook.Worksheets(1) '定义工作表，即：Sheet1
co = ThisWorkbook.Sheets.Count '统计本工作表里面所含的工作表数量
For j = 2 To 1000 '从第二行执行到1000行
su = 0 '累计清零
c = 0 '计数个数清零
For i = 2 To co '从第二个工作表开始执行，直至最后一个
Set mycells = ThisWorkbook.Worksheets(i).Cells(j, 2) '定义单元格
bo = IsNumeric(mycells) '判断单元格里面的值是否为数字
If mycells <> "" And mycells <> 0 And bo = True Then
'如果单元格里面不为空白或者不为零，且为数值，则执行计算
su = Worksheets(i).Cells(j, 2) + su '单元格数值相加
c = c + 1 '累计的次数
mysheet1.Cells(j, 2) = su / c '求解平均值
End If
Next
Next
Application.ScreenUpdating = True '恢复屏幕更新显示
End Sub
4、VBA程序代码思路解读：
（1）由于每个工作表的命名不一样，也可能不规则，如果都使用工作表名称，录入的工作量也是挺大的，此时还是根据实际情况使用工作表的索引号比较妥当快捷；
（2）先获取工作薄里边有多少个工作表，排除用于写入平均值的工作表，再逐一按照工作表顺序进行条件判断（不为空白、不为0、单元格为数值）并求和，对可以求和的表格计1，数值的和除以累计的个数就可以求出平均值。
（3）每执行1行时，都会对所有工作表（除了用于写入平均值的工作表）进行判断、求解平均值。
5、输入完程序之后，点击工具栏里边的“运行”图标运行程序，即可在工作表上面看到计算的结果（运行速度的快慢取决于计算量的大小）。
6、程序运行之后的结果。
