主题：自动填入序号

 做一个按钮，执行代码

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