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

乐开花36

对应单元格内按数找到值比较后返回重排序(数列的数字是值列值的自然数排序位置),谢谢,鲜花奉上 对应单元格内按数找到值比较后返回.zip (35.11 KB, 下载次数: 13)

2018-6-24 09:23 上传

点击文件名下载附件

liulang0808

楼主的附件的描述表示看不懂，建议再进一步结合各个位置数据解释下吧

jiangxiaoyun

好难看明白........(┬＿┬)

乐开花36

jiangxiaoyun 发表于 2018-6-24 09:42
好难看明白........(┬＿┬)

不会吧，难道表述有问题？，数列6,27.....意思是找到值列内字符串第6位的值，第27位的值，，号是分隔符，没意义，用split拆分

jiangxiaoyun

乐开花36 发表于 2018-6-24 10:02
不会吧，难道表述有问题？，数列6,27.....意思是找到值列内字符串第6位的值，第27位的值，，号是分隔符， ...

版主都表示看不懂了.....你都知道split了，还需要找代工么。。。

乐开花36

liulang0808 发表于 2018-6-24 09:41
楼主的附件的描述表示看不懂，建议再进一步结合各个位置数据解释下吧

感觉是数列s=split(cells(i,5),",")
值列t=split(cells(i,15),",");
FOR J=0 TO UBOUND(S)
   t(s(j))的值比较后,数列S由大到小重新排列代码,怎样写?,

乐开花36

jiangxiaoyun 发表于 2018-6-24 10:11
版主都表示看不懂了.....你都知道split了，还需要找代工么。。。

看久了,只是了解些大概,离编写差远着,见笑了,想表达清楚,不知从哪下手,

jiangxiaoyun

乐开花36 发表于 2018-6-24 10:29
看久了,只是了解些大概,离编写差远着,见笑了,想表达清楚,不知从哪下手,

真看不懂，你排列有什么规律。。。。

乐开花36

假设:目前数列字符串6,27,3....排列，对应值列字符串有30多位，第6位的值3，就是从左到右数，第6位的值，同理，第27位就是数到的值8，第3位数到的值5....值之间的比较8,＞5＞3数重排序就是27,3,6···如果相等，也按从左到右，以左边的大为准

一把小刀闯天下

'我猜一

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

Option Explicit

Sub test()
  Dim arr, i, j, t(1)
  arr = Range("e3:o" & Cells(Rows.Count, "e").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 11)) > 0 Then
      t(0) = Split(arr(i, 1), ","): t(1) = Split(arr(i, 11), ","):
      ReDim crr(1 To UBound(t(0)) + 1, 1 To 2)
      For j = 0 To UBound(t(0))
        crr(j + 1, 1) = Val(t(1)(Val(t(0)(j)) - 1))
        crr(j + 1, 2) = t(0)(j)
      Next
      Call bsort(crr, 1)
      For j = 1 To UBound(crr, 1): brr(i, 1) = brr(i, 1) & crr(j, 2) & ",": Next
      brr(i, 1) = Left(brr(i, 1), Len(brr(i, 1)) - 1)
    End If
  Next
  [b3].Resize(UBound(brr, 1)) = brr
End Sub

Function bsort(arr, key)
  Dim i, j, k, t, move As Boolean
  For i = LBound(arr, 1) To UBound(arr, 1) - 1
    For j = LBound(arr, 1) To UBound(arr, 1) + LBound(arr, 1) - 1 - i
      If arr(j, key) < arr(j + 1, key) Then
        For k = LBound(arr, 2) To UBound(arr, 2)
          t = arr(j, k): arr(j, k) = arr(j + 1, k): arr(j + 1, k) = t
        Next
        move = True
      End If
    Next
    If Not move Then Exit For
  Next
End Function