以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动填入序号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94658)
--  作者：chen1029
--  发布时间：2016/12/29 8:37:00
--  自动填入序号
√
1
2
3
√
1
2
√
1
2
√
1
2
3
4
5
6
7
8
9
√
1
请问在一列中非对号的单元格中自动填入序号的表达式或方法.这些1234序号是手工输入,太麻烦.谢谢
[此贴子已经被作者于2016/12/29 8:43:01编辑过]
--  作者：有点蓝
--  发布时间：2016/12/29 8:46:00
--  
表达式做不了，除非其他列有明显的标识和规律。否则只能用代码处理。

你这些序号按什么规律生成？
--  作者：chen1029
--  发布时间：2016/12/29 8:51:00
--  
其他列的单元格是空值和对号,想增加一列,对号还是显示对号,空值的单元格想从1,2,3..依次填入序号到下一个对号出现停止,然后又从下一个对号后面再依次编号
--  作者：有点色
--  发布时间：2016/12/29 9:10:00
--  

 做一个按钮，执行代码

 

Dim idx As Integer = 1
For Each r As Row In Tables("表a").rows
    If r("第四列") = "√" Then
        idx = 1
    Else
        r("第四列") = idx
        idx = idx + 1
    End If
Next