ExcelVBA 宏查找最后一列，查找最后一行，查找最后一个单元格

今夕乃何夕

已于 2023-10-10 11:01:14 修改

阅读量9.6k

点赞数 1

文章标签： excel vba

于 2022-07-15 09:20:24 首次发布

本文链接：https://blog.csdn.net/weixin_58444518/article/details/125797109

版权

本文介绍了如何使用Excel Find函数分别查找工作表中的最后一行、列和具有非空内容的单元格，通过示例和代码展示如何实现这些功能并处理无数据情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

因为UsedRange包含着带格式的、空白的单元格，所以使用usedrange会把值为空但是有其他内容的一起计算进去。

使用Find函数只会查找有值的最后一个单元格。下面是一些示例：

查找最后一行，返回最后一行的行数。

最后一行是第5行，则返回5.

Function UseRowFind() As Long '用Find方法找最后一行，返回行数
Dim r As Range

Set r = Cells.Find("*", after:=Range("A1"), searchorder:=xlRows, searchdirection:=xlPrevious)

If r Is Nothing Then
    MsgBox "无数据"
Else
    UseRowFind = r.Row
End If

End Function

查找最后一列，返回最后一列的列数。

最后一列是D列，则返回4.

Function UseColFind() As Long '用Find方法找最后一列，返回列数
Dim r As Range

Set r = Cells.Find("*", after:=Range("A1"), searchorder:=xlColumns, searchdirection:=xlPrevious)

If r Is Nothing Then
    MsgBox "无数据"
Else
    UseColFind = r.Column
End If

End Function

查找最后一个单元格，返回单元格的地址（字符串）。

最后一个单元格是E5,则返回E5.

Function UseRngFind() As String '用Find方法找最后一个单元格
Dim r As Range

Set r = Cells.Find("*", after:=Range("A1"), searchorder:=xlRows, searchdirection:=xlPrevious)

If r Is Nothing Then
    MsgBox "无数据"
Else
    UseRngFind = Replace(r.Address, "$", "")
End If

End Function