平时我们在WPS上输入1到100是怎么输的呢?是不是先写一个1,然后鼠钿泼兽匿标移到单元格右下角,等鼠标变成十字箭头的时候,按住鼠标左键,下拉,拉100格。这样是可以的,不过用WPS氆厝效耄宏可以编程并设置快捷键,能够特别方便的输入连续数字的下拉
工具/原料
WPS
开启宏
方法/步骤
1、首先WPS需要开启宏,开启宏的方式看引用的链接
2、点击“开发工具”的“VB编辑器”
3、双击左边的“sheet1”,显示出右边的空白文档
4、Sub数值下拉()'定义一个函数DimhangAs雉搽妤粲Long'定义行号DimlieAsLong'定义列号惺绅寨瞀DimzonghangshuAsVariant'定义需要的总行数定义为任意类型hang=ActiveCell.Row'活动单元格的行号lie=ActiveCell.Column'活动单元格的列号zonghangshu=Cells(hang-1,lie)'取活动单元格的上一个单元格IfIsNumeric(zonghangshu)=FalseThen'如果输入的不是数字那么提示“输入数值”MsgBox"输入数值"ExitSubEndIfzonghangshu=Abs(Fix(zonghangshu))'到这里最终获得了需要的总行数fix表示取整,去掉小数点后面的,abs取绝对值到这里Range(Chr(65+lie-1)&(hang-2)).SelectSelection.AutoFillDestination:=Range(Chr(65+lie-1)&(hang-2)&":"&Chr(65+lie-1)&hang-3+zonghangshu),Type:=xlFillDefaultRange(Chr(65+lie-1)&(hang-2+zonghangshu)).SelectEndSub
5、关闭编辑器,保存.点击“宏”,再点击“选项”,写上大写的“J”,写什么字母都行,举例写“J”
6、具体使用方法:比如A1输入1,B1输入100,C1输入快捷键:CTRL+SHIFT+J,就可以看到效果