以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15471)
--  作者：海南老玩童
--  发布时间：2011/12/27 14:54:00
--  [求助]
     关于单元格引用问题：如附件抓图所示，第一列有数千组数据，等差分析列是数据列，在该列用代码实现下述结果：1：第一列的单元格1减第一列的单元格2；   2：第一列的单元格2减第一列的单元格3； 3：第一列的单元格3减第一列的单元格4； 以此类推。先在此叩谢了！


图片点击可在新窗口打开查看此主题相关图片如下：截图00.png
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2011/12/27 17:18:00
--  

在命令窗口执行：

 

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

 

就会得到你要的结果。
--  作者：海南老玩童
--  发布时间：2011/12/27 18:28:00
--  
向您叩10个大头致谢！！！