帮我写个帮我写个WPS表格单据编号自动递增的JS宏

在WPS表格中，你可以使用JavaScript宏来实现单据编号的自动递增功能。这是一个简单的例子，假设你有一个A列用于存储单据编号：

Sub AutoIncrement()
    Dim ws As Object ' 定义工作表对象
    Dim rng As Range ' 定义活动范围
    Dim nextNum As Long ' 存储下一个编号

    ' 获取当前活动的工作表
    Set ws = ThisComponent.Sheets.getByName("Sheet1") ' 更改"Sheet1"为你实际的工作表名称
    If Not ws Is Nothing Then
        ' 设置开始编号的位置和递增值（如从1开始）
        Set rng = ws.getCellByPosition(1, 1) ' 第一行第一列
        nextNum = rng.Value + 1
        
        ' 自动填充递增编号到列B或其他指定位置
        ws.Cells.fill(nextNum, rng.Offset(0, 1)) ' 假设你是想填充到右边一列，调整Offset的第二个参数
        Application.Goto rng ' 移动光标回新增加的单元格
    End If
End Sub

要在WPS表格中运行这个宏，需要点击“工具”>“自定义函数”，然后添加一个新的JavaScript函数，并粘贴上述代码。记得保存文档以便下次打开时能自动运行。