主题：列存放多种类型数据

你设计思路肯定错了.

非要这么做,用字符串列吧. 需要用的时候再转换为对应的类型

                For n As Integer = 5 To 54

                    Dim r As Row = Tables("资产负债表").AddNew()

                    t = t + 1

                    r("行次") = t

                    r("年未数") = Sheet1(n,3).Value

                    r("日期") = Sheet1(1,0).Value

                    r("单位") = s1

                Next