Sub 填充序列号()
With Range("A2:A500").Clear
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("A2:A500"), Type:=xlFillSeries
End Sub
With Range("A2:A500").Clear
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("A2:A"&cells(rows.count,2).end(xlup).row), Type:=xlFillSeries
改了红色字体,是否满足?
With Range("A2:A500").Clear
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("A2:A"&cells(rows.count,2).end(xlup).row), Type:=xlFillSeries
改了红色字体,是否满足?