求一个单元格内排序指导

在一个单元格中，字母是变量、 =后面是统计数据，怎么依照大小顺序排列啊。

是不是这个意思呀?

就是这意思，代码发我一个。

这不是代码.是公式.

=TEXTJOIN("、",,SORTBY(FILTERXML("<a>"&SUBSTITUTE(A1,"、","")&"</a>","a/b"),FILTERXML("<a>"&SUBSTITUTE(SUBSTITUTE(A1,"、",""),"=","")&"</a>","a/b")))

=LET(x,"<a>"&SUBSTITUTE(SUBSTITUTE(A1,"=","<c>"),"、","</c>")&"</c></a>",y,FILTERXML(x,"//b"),z,FILTERXML(x,"//c"),TEXTJOIN({"=","、"},,SORTBY(IF({1,0},y,z),z)))

两个函数公式，我复制都显示，这个内容，运算不起。我需要慢慢找原因。求指点

🧘🏻♀️

=TEXTJOIN(" ",,INDEX(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99)),MATCH(IFERROR(--MID(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99)),FIND("=",TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99)))+1,3),999),SMALL(IFERROR(--MID(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99)),FIND("=",TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99)))+1,3),999),ROW($1:$9)),)))
其中有反复使用的部分=TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),ROW($1:$9)*99-98,99))，可以定义为名称（假设叫SR），那公式可以缩短为
=TEXTJOIN(" ",,INDEX(SR,MATCH(IFERROR(--MID(SR,FIND("=",SR)+1,3),999),SMALL(IFERROR(--MID(SR,FIND("=",SR)+1,3),999),ROW($1:$9)),)))

👌🏻

Option Explicit
Sub abc()
　Dim a, i, j, t(1)
　a = [a1].CurrentRegion.Value
　For i = 1 To UBound(a)
　　t(0) = Split(a(i, 1), "、"): t(1) = t(0)
　　For j = 0 To UBound(t(0))
　　　t(1)(j) = Split(t(0)(j), "=")(1)
　　Next
　　Call bsort(t, 0, UBound(t(0)))
　　a(i, 1) = Join(t(0), "、")
　Next
　[b1].Resize(UBound(a)) = a
End Sub
Function bsort(a, first, last)
　Dim i, j, k, t
　For i = first To last - 1
　　For j = first To last + first - 1 - i
　　　If Val(a(1)(j)) > Val(a(1)(j + 1)) Then
　　　　For k = 0 To UBound(a)
　　　　　t = a(k)(j): a(k)(j) = a(k)(j + 1): a(k)(j + 1) = t
　　　　Next
　　　End If
　　Next
　Next
End Function

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

25回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六

求一个单元格内 排序指导

扫二维码下载贴吧客户端

求一个单元格内排序指导