如何用公式镜像列出反向数据。

ning84

现在用的是VBA方法。

1. Sub ll()
   
2.    Dim Rng As Range
   
3.      Dim Arr()
   
4.        Set Rng = Selection.CurrentRegion
   
5.        Debug.Print Rng.Address
   
6.       
   
7.       
   
8.        ReDim Arr(Rng.Rows.Count - 1)
   
9.        For ii = 1 To Rng.Rows.Count
   
10.             Set Arr(ii - 1) = Rng(Rng.Rows.Count - ii + 1, 2)
    
11.             Rng(Rng.Rows.Count - ii + 1, 3) = Rng(Rng.Rows.Count - ii + 1, 2).Address
    
12.        Next ii
    
13.       
    
14.        For ii = 0 To UBound(Arr)
    
15.             Rng(UBound(Arr) + 5 + ii, 1) = ii + 1
    
16.             Rng(UBound(Arr) + 5 + ii, 2) = "=" & Arr(ii).Address(0, 0)
    
17.             Rng(UBound(Arr) + 5 + ii, 3) = Arr(ii).Address
    
18.             'Debug.Print Rng.Address
    
19.             
    
20.        Next ii
    
21. End Sub
    

复制代码

hxj119

1. =MAP(B4:B24,LAMBDA(z,REDUCE("",REGEXP(SUBSTITUTES(z,{"(",")"},{")","("}),"."),LAMBDA(x,y,y&x))))

复制代码

无关岁月

1. =LET(_a,SEQUENCE(21,,21,-1),HSTACK(_a,VLOOKUP(_a,A:B,2,)))

复制代码

hxj119

更新公式：

1. =INDEX($A$4:$B$24,22-ROW(A1),)

复制代码

wj65134

=HSTACK(A4:A24,SORTBY(B4:B24,A4:A24,-1))

hxj119

精简一下公式

1. =SORT(A4:B24,1,-1)

复制代码

hxj119

不用A列辅助，

1. =LET(a,HSTACK(SCAN(0,B4:B24,LAMBDA(x,y,x+N(y<>""))),B4:B24),DROP(SORT(a,1,-1),,1))

复制代码

浮生若梦~~~

不用A列辅助，=CHOOSEROWS(A4:B24,ROW(1:21)/-1)

你是那块小饼干

1. =INDEX($B$4:$B$24,SUM(COUNTA(B4:B24),1)-SEQUENCE(COUNTA(B4:B24)))

复制代码

苍域

=INDEX(MID(SORT(TEXT(ROW($1:$21),"00")&$B$4:$B$24,,-1),3,99),ROW(A2))