Question

EXCEL VBA代码求助，请高手来帮忙！

如图，求一段在模块中的代码，当鼠标在A列选择单元格时，运行代码后，在B列自动生成从1开始的序号，A列有可能有隐藏单元格，不影响序号生成！例图中，我选择了A2\A3\A10,其中4:9行是隐藏的，对应在B2\B3\B10中，生成了1\2\3的序号。

Answer 1

Sub 序号()
    Dim rng As Range, i%, k%
    k = 1
    For Each rng In Selection
        r = rng.Row
        If Rows(r & ":" & r).Hidden = False Then
            rng.Offset(, 1) = k
            k = k + 1
        End If
    Next
End Sub