WPS宏技巧：快速生成连续数字的方式

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)).Select

End Sub

5、关闭编辑器，保存.  点击“宏”，再点击“选项”，写上大写的“J”，写什么字母都行，举例写“J”

6、具体使用方法：比如 A1 输入1，  B1输入100，C1输入快捷键：CTRL+SHIFT+J,就可以看到效果