1、首先WPS需要开启宏，开启宏的方式看引用的链接
2、点击“开发工具”的“VB编辑器”
3、双击左边的“sheet1”，显示出右边的空白文档
4、Sub 数值下拉() '定义一个函数 Dim hang As 雉搽妤粲Long '定义行号 Dim lie As Long '定义列号 Dim zonghangshu As Variant '定义需要的总行数 定义为任意类型 hang = ActiveCell.Row '活动单元格的行号 lie = ActiveCell.Column '活动单元格的列号 zonghangshu = Cells(hang - 1, lie) '取活动单元格的上一个单元格 If IsNumeric(zonghangshu) = False Then '如果输入的不是数字 那么提示“输入数值” MsgBox "输入数值" Exit Sub End If zonghangshu = Abs(Fix(zonghangshu)) '到这里最终获得了需要的总行数 fix 表示取整，去掉小数点后面的，abs取绝对值 到这里 Range(Chr(65 + lie - 1) & (hang - 2)).Select Selection.AutoFill Destination:=Range(Chr(65 + lie - 1) & (hang - 2) & ":" & Chr(65 + lie - 1) & hang - 3 + zonghangshu), Type:=xlFillDefault Range(Chr(65 + lie - 1) & (hang - 2 + zonghangshu)).SelectEnd Sub
5、关闭编辑器，保存. 点击“宏”，再点击“选项”，写上大写的“J”，写什么字母都行，举例写“J”
6、具体使用方法：比如 A1 输入1， B1输入100，C1输入快捷键：CTRL+SHIFT+J,就可以看到效果