主题：列序号

参考代码，具体问题上传实例详细说明

Dim t As Table = Tables("表A")
Dim r As Row = t.Current
Dim nr As Row = t.InsertNew
If r.index > 0 Then
    nr("第三列") = t.rows(r.index-2)("第三列") + 1
Else
    nr("第三列") = 1
End If