[已解决]求把指定列里的非0数字显示在指定区域的最下面的公式，非常感谢！

lsyylw

2021-11-1-.zip (2.37 KB, 下载次数: 7)

2021-11-1 21:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-1 22:16

lsyylw 发表于 2021-11-1 22:07
非常感谢老师，我测试了一下，没有成功，是不是我用的是2003版的缘故，麻烦老师您再帮我看看，拜托了！

=INDEX(B:B,TEXT(LARGE(IF(B$3:B$33,ROW($3:$33),-1),COUNT(B:B)-ROW()+1),"0;999"))

跳转到最佳答案楼层

cutecpu

=IFERROR(INDEX(B:B,LARGE(IF(B$3:B$33,ROW($3:$33)),COUNT(B:B)-ROW()+1)),)


※數組公式，請記得按Ctrl+Shift+Enter

祝順心，南無阿彌陀佛！

心正意诚身修

1. Sub 取数()
   
2. Dim ARR, BRR(), S As Integer, K As Integer, T As Integer
   
3. S = Range("B3").End(xlDown).Row
   
4. ARR = Range("B3:B" & S)
   
5. ReDim BRR(1 To S)
   
6. For K = 1 To S - 2
   
7.    If ARR(K, 1) > 0 Then
   
8.        T = T + 1
   
9.        BRR(T) = ARR(K, 1)
   
10.    End If
    
11. Next
    
12. Range("D" & S - T + 1).Resize(T, 1) = Application.Transpose(BRR)
    
13. End Sub
    

复制代码

lsyylw

cutecpu 发表于 2021-11-1 22:00
=IFERROR(INDEX(B:B,LARGE(IF(B$3:B$33,ROW($3:$33)),COUNT(B:B)-ROW()+1)),)

非常感谢老师，我测试了一下，没有成功，是不是我用的是2003版的缘故，麻烦老师您再帮我看看，拜托了！

cutecpu

lsyylw 发表于 2021-11-1 22:07
非常感谢老师，我测试了一下，没有成功，是不是我用的是2003版的缘故，麻烦老师您再帮我看看，拜托了！

=INDEX(B:B,TEXT(LARGE(IF(B$3:B$33,ROW($3:$33),-1),COUNT(B:B)-ROW()+1),"0;999"))

lsyylw

cutecpu 发表于 2021-11-1 22:16
=INDEX(B:B,TEXT(LARGE(IF(B$3:B$33,ROW($3:$33),-1),COUNT(B:B)-ROW()+1),"0;999"))

非常感谢老师，公式非常好用。

lsyylw

心正意诚身修 发表于 2021-11-1 22:04

非常感谢老师，代码非常好用，这个问题我想用公式来解决，抱歉了老师！

心正意诚身修

lsyylw 发表于 2021-11-1 22:32
非常感谢老师，代码非常好用，这个问题我想用公式来解决，抱歉了老师！

我也就是练习练习。。最近在学习VBA。

lsyylw

心正意诚身修 发表于 2021-11-1 22:34
我也就是练习练习。。最近在学习VBA。

向老师学习！