Sub 可視列連番()
'可視列に対して連番
Dim r1, r2 As Range
Dim i As Long
Set r2 = ActiveSheet.UsedRange.Columns(1)
Set r2 = r2.SpecialCells(xlCellTypeVisible)
i = 0
For Each r1 In r2.Cells
r1.Value = i
i = i + 1
Next
End Sub