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 NextEnd Sub