求快速填充序列的方法 先谢过

zhycl

老师，求快速填充序列的方法  如图
A列为原始数据，按填充数列得出C列谢谢了

hoogle

SA是什么意思？？？

hhl1984

Sub 填充序号()
Dim rng As Range
Dim i As Integer
Dim tg As Integer
Dim x As Integer
Set rng = Range("a:a").SpecialCells(xlCellTypeConstants, 2)
If Err = 1004 Then MsgBox "当前列没有文本"
    For Each rn In rng
            If Len(rn.Value) <> 0 Then
                i = rn.Row
                tg = Left(Range("a" & i).Value, Len(Range("a" & i).Value) - 1)
                    For x = 0 To 4
                        Range("c" & i + x).Value = tg & x + 1
                    Next x
            End If
    Next rn
End Sub

上清宫主

录的宏改的：
Sub 宏1()
    [a1].AutoFill Destination:=Range("A1:A5")
    [a6].AutoFill Destination:=Range("A6:A10")
End Sub
还有更多可变为循环