那位大神能根据正负数值排序号

李斌义

A1为生成序号，B1为数值
1                       50
2                        10
3                         20
1                       -10
4                         3
2                          -3

zpy2

绝对值排序？

A1233515

上传附件，说明逻辑，模拟结果

李斌义

不是排序，是生成序号

lele6809

啥规则啊？跟猜谜似的

Narutoduomi

对B1数值进行排序，
正数部分，按照从大到小的规则，自动生产A1序号1.2.3.4.5......
负数部分，按照从小到大的规则，自动生产A1序号1.2.3.4....?
这个理解对吗？

A1233515

蒙一个   

A1233515

附件供参考

准提部林

Sub TEST()
Dim Arr, i&, K%, P&(1)
Arr = Range([b1], [b65536].End(xlUp))
For i = 2 To UBound(Arr)
    K = 1 + (Arr(i, 1) < 0): P(K) = P(K) + 1
    Arr(i - 1, 1) = P(K)
Next i
[a2].Resize(UBound(Arr) - 1) = Arr
End Sub

李斌义

7楼8楼，两个大神，学习不来，套不进。重新上传了新的附件，麻烦能跟根据这个实现吗，