对应单元格内按数找到值比较后返回重排序

乐开花36 · 发表于 2018-6-30 09:52

duquancai 发表于 2018-6-30 09:48
原始数据状态是什么？原始数据有哪些？结果数据是什么状态？结果数据放在哪里？

单元格排序返位置1.zip (17 KB, 下载次数: 1)

duquancai · 发表于 2018-6-30 10:00

乐开花36 发表于 2018-6-30 09:52

哪些是原始数据？哪些是你模拟的结果数据？原始数据到结果数据是怎么得来的？

乐开花36 · 发表于 2018-6-30 10:03

duquancai 发表于 2018-6-30 10:00
哪些是原始数据？哪些是你模拟的结果数据？原始数据到结果数据是怎么得来的？

重新整理上传了一下附件,请查看

单元格排序返位置1.zip (17 KB, 下载次数: 4)

duquancai · 发表于 2018-6-30 10:22

乐开花36 发表于 2018-6-30 10:03
重新整理上传了一下附件,请查看

原始数据到结果数据是怎么得来的？？？？

乐开花36 · 发表于 2018-6-30 10:33

duquancai 发表于 2018-6-30 10:22
原始数据到结果数据是怎么得来的？？？？

原始数据按大小顺序排序后,显示排序前的位置,也就是排号,感觉比上次要容易,只是无从下手哈

duquancai · 发表于 2018-6-30 10:45

本帖最后由 duquancai 于 2018-6-30 10:46 编辑

乐开花36 发表于 2018-6-30 10:33
原始数据按大小顺序排序后,显示排序前的位置,也就是排号,感觉比上次要容易,只是无从下手哈

你就不能举一个列子吗？手动是怎么操作过程？？。哎！

duquancai · 发表于 2018-6-30 11:54

乐开花36 发表于 2018-6-30 10:33
原始数据按大小顺序排序后,显示排序前的位置,也就是排号,感觉比上次要容易,只是无从下手哈

请测试》》》》》》》》》》》》》》》

Sub main()
Dim a, b(), s$, js As Object
r = Cells(Rows.Count, "i").End(3).Row
a = Range("i5:i" & r): ReDim b(1 To r - 4, 1 To 1)
Set js = CreateObject("MSScriptControl.ScriptControl")
js.Language = "JavaScript"
For i = 1 To r - 4
If Len(a(i, 1)) Then
s = "[" & a(i, 1) & "]"
b(i, 1) = js.eval("a=" & s & ";b=[];for(i=0;i<a.length;i++)b.push(i+1);b.sort(function(x,y){return a[y-1]-a[x-1]});")
End If
Next
Range("b5:b" & r) = b
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 对应单元格内按数找到值比较后返回重排序