赞
踩
完成录制宏操作后,对其代码进行学习
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
R
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。