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

Dim sum As Double
For Each r As Row In Tables("表A").Rows

     For each c As Col in Tables("表A").Cols
           sum + = Val(r(c.name))

     next
Next
MessageBox.Show(sum)