主题：[原创]求助：字符列的数字统计

Dim sum As Double
For Each r As Row In Tables("表A").Rows
    sum + = Val(r("第一列"))
Next
MessageBox.Show(sum)