最后一个非空单元格的行号在VBA如何写 ？

jylai

不要公式，完全是VBA代码


=MAX（6，IF（C6:C16<>“”，ROW（C6:C16）））

gwjkkkkk

Sub findrng()
    Dim rngFind As Range
   
    Set rngFind = Range("C6:C16").Find("*", , , , , xlPrevious, , , True)
    If Not rngFind Is Nothing Then MsgBox rngFind.Row
End Sub

swl4561255

cells(6,3).end(4).row
或
cells(65536,3).end(3).row

jylai

gwjkkkkk 发表于 2024-4-13 13:58
Sub findrng()
    Dim rngFind As Range
   

感谢老师您太厉害了

jylai

swl4561255 发表于 2024-4-13 14:01
cells(6,3).end(4).row
或
cells(65536,3).end(3).row

老师您的方法不会用，可以写出完整代码吗 ？

swl4561255

jylai 发表于 2024-4-13 14:04
老师您的方法不会用，可以写出完整代码吗 ？

请参考附件

ykcbf1100

楼主摸拟的例子不好，目前这种情况下，就普通的语句就能得到非空最大行号
r = Cells(Rows.Count, 3).End(3).row

jylai

swl4561255 发表于 2024-4-13 14:29
请参考附件

感谢老师您太厉害了

ykcbf1100

楼主摸拟的数据不尽合理，应该是最大行号和最大非空行号不一样才对，就象我摸拟的数据一样，不然的话，普通的语句就行了：r = Cells(Rows.Count, 3).End(3).row。

ykcbf1100

参与一下。。。

1. Sub C列非空最大行号()  '//2024.4.13
   
2.     r = Cells(Rows.Count, 3).End(3).Row
   
3.     For i = r To 2 Step -1
   
4.         If Cells(i, 3) <> Empty Then k = i
   
5.     Next
   
6.     MsgBox "最大非空行号：" & k
   
7. End Sub
   

复制代码