分别取出,然后计算
Dim cs() As String = {"第一列", "第二列"}dim sum as double = 0for each c as string in cs sum += val(tables("表A").Current(c))Nextmsgbox(sum)msgbox(sum/cs.length)