|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
请测试》》》》》》》》》》》》》》》- 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
复制代码
|
|