主题：平均值

分别取出，然后计算

Dim cs() As String = {"第一列", "第二列"}
dim sum as double = 0
for each c as string in cs
    sum += val(tables("表A").Current(c))
Next
msgbox(sum)
msgbox(sum/cs.length)

说明你此表一行数据都没有。代码没问题的。