Sub 宏1()
Dim r As Long
r = Range("a1048576").End(xlUp).Row
If r > 1 Then
Range("A1") = 1
Range("A1").AutoFill Destination:=Range("a1:a" & r), Type:=xlFillSeries
End If
End Sub
Sub 宏1()
Dim r As Long
r = Range("a1048576").End(xlUp).Row
If r > 1 Then
Range("A1") = 1
Range("A1").AutoFill Destination:=Range("a1:a" & r), Type:=xlFillSeries
End If
End Sub