按某行指定范围排序字符串

hetianjun

老师好：
想按某一行的指定范围进行列排序，求指导，谢谢！

duquancai

对字段进行排列。这个也算是排序吧！没附件，做不了！

一把小刀闯天下

'这不是排序，只是有条件对换。可以试一下

Option Explicit

Sub test()
  Dim i, j, arr, pos, p
  pos = Range("j39:k" & Cells(Rows.Count, "j").End(xlUp).Row)
  arr = [a1].CurrentRegion
  ReDim t(1 To UBound(arr, 1))
  For i = 1 To UBound(pos, 1): pos(i, 2) = i + 3: Next
  For i = 1 To UBound(pos, 1)
    For j = 3 To UBound(arr, 2)
      If arr(2, j) = pos(i, 1) Then p = j: Exit For
    Next
    If j < UBound(arr, 2) + 1 Then
      For j = 2 To UBound(arr, 1)
        t(j) = arr(j, pos(i, 2))
        arr(j, pos(i, 2)) = arr(j, p)
        arr(j, p) = t(j)
      Next
    End If
  Next
  [a1].CurrentRegion = arr
End Sub

hcm19522

N2:N11{=IFERROR(INDEX($2:$2,RIGHT(SMALL(IF(D$2:L$2=A$2,B$2-0.5,COLUMN(D$2:L$2)-3)/1%%+COLUMN(D$2:L$2),ROW(A1)),2)),"")

hetianjun

一把小刀闯天下 发表于 2018-8-27 06:59
'这不是排序，只是有条件对换。可以试一下

Option Explicit

谢谢老师！！！

hetianjun

hcm19522 发表于 2018-8-27 12:17
N2:N11{=IFERROR(INDEX($2:$2,RIGHT(SMALL(IF(D$2:L$2=A$2,B$2-0.5,COLUMN(D$2:L$2)-3)/1%%+COLUMN(D$2:L$2 ...

谢谢老师！！！