WPS表格怎么设置函数让数字自动增加 1 排列下去-vba excel 排序函数,vba excel 函数

wps表格自动生成序号函数的步骤如下：

1.首先，新建一个WPS表格，表格内容包含序号项；在序号列中输入开复始序号“1”，准备进行序号生成操作，当然也可以以任意数字开始。

2.鼠标制放在输入“1”的单元格的右下角，当现实黑色加号时停止移动。

3.接下来按住鼠标左键不放下拉鼠标，可以百看到下拉过程成鼠标会根据下拉位置显示序号数字。

4.将鼠标下拉到指定位置后松开，可以看到序号已自动生成。这样度就解决了wps表格自动生成序号函数的问题了。

方法一
上一单元格写百入52262810060155
下一单元格写入52262810060156
设置单元格格式为数值格式,小数位数为0位
选中这两个单元格下拉填充度

方法二
假设A1单元格写入内52262810060155
在A2单元格写入公式容 =A1+1
设置单元格格式为数值格式,小数位数为0位
下拉填充公式

方法三
单元格写入公式
=522628&10060154+ROW(A1)
下拉填充公式
=REPT(0,LEN(A1)-LEN(SUBSTITUTE(A1,0,"")))&SUM(SMALL(--MID(A1,ROW($1:$3),1),ROW($1:$3))*10^(3-ROW($1:$3)))数组抄公式袭，同时按百ctrl+shift+回车度三键结问束，下拉答

VBA代码如下e799bee5baa6e997aee7ad94e59b9ee7ad94334(注：附件中有样本文件，以供测试。另，你可能需要安装微软的OFFICE并启用宏——以提供运行VBA的环境）

Sub test()
Dim mAry, i As Long, j As Long, arr, brr, tmp1, tmp2
Dim d As Object
Set d = CreateObject("scripting.dictionary")
mAry = [a1].CurrentRegion
For i = 2 To UBound(mAry, 1)
    d(mAry(i, 2)) = d(mAry(i, 2)) + mAry(i, 3)
Next
arr = d.keys: brr = d.items
tmp1 = "": tmp2 = 0
For i = 0 To UBound(arr) - 1
    For j = i To UBound(arr)
        If brr(j) > brr(i) Then
            tmp1 = arr(i): tmp2 = brr(i)
            arr(i) = arr(j): brr(i) = brr(j)
            arr(j) = tmp1: brr(j) = tmp2
        End If
    Next
Next
[E2].Resize(d.Count, 2) = Application.Transpose(Array(arr, brr))
End Sub

 

本文标签：vba excel 函数(4)vba excel 排序函数(1)