百度词–vba学习
1 录制宏
完成录制宏操作后,对其代码进行学习
Sub test1()
'
' test1 宏
'
'
ActiveCell.FormulaR1C1 = "1"
Range("A1").Select #A1赋值1
Selection.AutoFill Destination:=Range("A1:A12"), Type:=xlFillSeries
Range("A1:A12").Select
Range("A1:A12").Select #Type:=xlFillSeries表示按序列排序
Selection.Cut Destination:=Range("A2:A13") #将数据移到A2:A13
Range("A1").Select
ActiveCell.FormulaR1C1 = "学号"
Range("B1").Select ""
ActiveCell.FormulaR1C1 = "数学分数"
Range("B2").Select
ActiveCell.For