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

                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