如何找到最后一个单元格VB

最新推荐文章于 2023-11-29 18:20:29 发布

转载最新推荐文章于 2023-11-29 18:20:29 发布 · 1.3k 阅读

学习专栏收录该内容

20 篇文章

订阅专栏

本文介绍使用VBA在Excel中定位最后一个非空单元格的不同方法，包括使用end属性、find方法、specialcells方法、usedrange属性、currentregion属性及工作表函数counta和countif等。

Sub 最后的单元格()
a = Cells(Rows.Count, 1).End(xlUp).Row 'end属性
b = Columns(1).Find("*", , , , , xlPrevious).Row 'find方法
c = Cells.SpecialCells(xlCellTypeLastCell).Row 'specialcells方法
d = Sheet1.UsedRange.Rows.Count 'usedrange属性
e = [a1].CurrentRegion.Rows.Count 'currentregion属性
f = WorksheetFunction.CountA([a:a]) '工作表函数counta
g = Application.CountIf([a:a], "<>") '工作表函数countif
End Sub