B列最大行号为啥不是实际的行号呢？求解

ykcbf1100

^_^Excel 发表于 2021-6-23 15:50
换成这个数组公式，试试
=SUM(IF($B$4:$B$1048576=0,,1))+3

公式结果对的。谢谢。

^_^Excel

^_^Excel 发表于 2021-6-23 15:50
换成这个数组公式，试试
=SUM(IF($B$4:$B$1048576=0,,1))+3

如果用vba和话，
[b:b].Find("*", , , , , xlPrevious).Row
换成
application.WorksheetFunction.sum([(IF($B$4:$B$1048576=0,,1))])+3
也行

ahaoge

For i = 4 To Range("b3").End(xlDown).Row
     If Cells(i, 2) <> 0 Then k = k + 1
Next
[b2] = k + 3

ykcbf1100

三年前的求助，我自己再来解一次。

最大非空非0值最大行号目前找到二种方法，均有效。

ykcbf1100

B列最大非空非0值最大行号，目前找到二种有效方法：

1. Sub B列非空非0值最大行号()  '//2024..6.13
   
2.     '//方法1:
   
3.     r = [b:b].Find("*", , -4163, , 1, 2).EntireRow.Row '
   
4.     [b2] = r
   
5.     MsgBox "B列非空非0值最大行号" & r
   
6.     '****************************************
   
7.     '//方法2:
   
8.     For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
   
9.         If Cells(i, 2).Value <> Empty Then
   
10.             r = i
    
11.             Exit For
    
12.         End If
    
13.     Next
    
14.     [b2] = r
    
15.     MsgBox "B列非空非0值最大行号" & r
    
16. End Sub
    
17. 
    

复制代码

小凡、、、

ykcbf1100 发表于 2024-6-13 19:39
三年前的求助，我自己再来解一次。

最大非空非0值最大行号目前找到二种方法，均有效。

我寻思谁隔着刨坟呢，楼主自己啊

ykcbf1100

小凡、、、 发表于 2024-6-13 19:43
我寻思谁隔着刨坟呢，楼主自己啊

我现在比以前强了，所以，尝试着自己来解题。

小凡、、、

ykcbf1100 发表于 2024-6-13 19:44
我现在比以前强了，所以，尝试着自己来解题。

强大了思路可以更多了，先筛选不等于0获取最大行号再取消筛选也不是不行

493861364

ykcbf1100 发表于 2024-6-13 19:44
我现在比以前强了，所以，尝试着自己来解题。

这才是论坛存在的意义,帮助别人,让自己变强!
向老师学习!

ykcbf1100

493861364 发表于 2024-6-13 20:08
这才是论坛存在的意义,帮助别人,让自己变强!
向老师学习!

相互交流，共同进步。