在命令窗口执行：
Dim t As Table = Tables("表A")For i As Integer = 0 To t.Rows.Count - 2 t.rows(i)("等差分析") = t.Rows(i)("第一列") - t.Rows(i+1)("第一列")Next
就会得到你要的结果。
加好友 
发短信
Post By：2011/12/27 17:18:00 [显示全部帖子]
