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

乐开花36

一把小刀闯天下 发表于 2018-6-24 10:58
'我猜一

'现在写代码主要靠猜条件，哈哈哈。

就是这个意思,

duquancai

乐开花36 发表于 2018-6-24 10:53
假设:目前数列字符串6,27,3....排列，对应值列字符串有30多位，第6位的值3，就是从左到右数，第6位的值，同 ...

看了很久，终于看懂啥意思！请测试：

1. Sub main()
   
2.     Dim a, b, c(), s1$, s2$, js As Object
   
3.     r = Cells(Rows.Count, "e").End(3).Row
   
4.     a = Range("e3:e" & r): b = Range("o3:o" & r)
   
5.     ReDim c(1 To r - 2, 1 To 1)
   
6.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
7.     js.Language = "JavaScript"
   
8.     For i = 1 To r - 2
   
9.         If Len(a(i, 1)) * Len(b(i, 1)) Then
   
10.             s1 = "[" & a(i, 1) & "]": s2 = "[" & b(i, 1) & "]"
    
11.             c(i, 1) = js.eval("a=" & s1 & ";b=" & s2 & ";a.sort(function(x,y){return b[y-1]-b[x-1]});")
    
12.         End If
    
13.     Next
    
14.     Range("b3:b" & r) = c
    
15.     MsgBox "OK!"
    
16. End Sub

复制代码

jiminyanyan

这是啥，彩迷？。。。。。

duquancai

jiminyanyan 发表于 2018-6-24 15:27
这是啥，彩迷？。。。。。

真是搞彩票的吗？早知道就不该写代码了！哈哈。

乐开花36

duquancai 发表于 2018-6-24 21:27
真是搞彩票的吗？早知道就不该写代码了！哈哈。

没有啊，只是找来相关统计的题材而己，能算岀来这行业也就关门了，excel魅力在此。

duquancai

乐开花36 发表于 2018-6-30 09:13
没有啊，只是找来相关统计的题材而己，能算岀来这行业也就关门了，excel魅力在此。

代码不符合要求吗？？？

乐开花36

duquancai 发表于 2018-6-30 09:34
代码不符合要求吗？？？

有点区别,哪个代码很好,,,这个是每个单元格内字符排序返排序号,

duquancai

乐开花36 发表于 2018-6-30 09:38
有点区别,哪个代码很好,,,这个是每个单元格内字符排序返排序号,

没明白你什么意思？？？

乐开花36

duquancai 发表于 2018-6-30 09:40
没明白你什么意思？？？

不好意思,你切换太快,放错地放哈,当前这个代码很好,很强大,....新发的哪个是单元格内本身字符比较后,显示顺序

duquancai

乐开花36 发表于 2018-6-30 09:42
不好意思,你切换太快,放错地放哈,当前这个代码很好,很强大,....新发的哪个是单元格内本身字符比较后,显示 ...

原始数据状态是什么？原始数据有哪些？结果数据是什么状态？结果数据放在哪里？