主题：自动填入序号

√
1
2
3
√
1
2
√
1
2
√
1
2
3
4
5
6
7
8
9
√
1 请问在一列中非对号的单元格中自动填入序号的表达式或方法.这些1234序号是手工输入,太麻烦.谢谢

表达式做不了，除非其他列有明显的标识和规律。否则只能用代码处理。

其他列的单元格是空值和对号,想增加一列,对号还是显示对号,空值的单元格想从1,2,3..依次填入序号到下一个对号出现停止,然后又从下一个对号后面再依次编号

 做一个按钮，执行代码

 

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