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

乐开花36

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

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

2018-6-30 09:52 上传

点击文件名下载附件

duquancai

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

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

乐开花36

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

重新整理上传了一下附件,请查看 单元格排序返位置1.zip (17 KB, 下载次数: 4)

2018-6-30 10:03 上传

点击文件名下载附件

duquancai

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

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

乐开花36

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

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

duquancai

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

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

duquancai

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

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

1. Sub main()
   
2.     Dim a, b(), s$, js As Object
   
3.     r = Cells(Rows.Count, "i").End(3).Row
   
4.     a = Range("i5:i" & r): ReDim b(1 To r - 4, 1 To 1)
   
5.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
6.     js.Language = "JavaScript"
   
7.     For i = 1 To r - 4
   
8.         If Len(a(i, 1)) Then
   
9.             s = "[" & a(i, 1) & "]"
   
10.             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]});")
    
11.         End If
    
12.     Next
    
13.     Range("b5:b" & r) = b
    
14. End Sub

复制代码