如何在 Excel VBA 中查找最后使用的行和列？

我们在下面的 VBA 代码中使用 Range.SpecialCells() 方法来查找并返回工作表中最后使用的行、列和单元格的详细信息。

样本数据：

样本数据

句法：

expression.SpecialCells (Type, Value)

例如：返回活动表中最后使用的单元格地址。 ActiveSheet.Range(“A1”).SpecialCells(xlCellTypeLastCell).Address

VBA代码：

声明变量：

Variable	Data Type	Comments
LastRow	Long	Find and store last used row
LastCol	Long	store last used column
LastCell	String	store last used cell address

'Variable Declaration

Dim LastRow As Long, LastCol As Long, LastCell As String

使用 SpecialCells函数查找最后使用的行/列/单元格

'Find Last Used Row
LastRow = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Find Last Used Column
LastCol = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Column

'Find Last Used Cell
LastCell = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Address

连接所有三个变量（LastRow/LastCol/LastCell），使用 Chr(10) 在变量之间添加新行。在 Excel 消息框中显示最终输出。

'Display the last used row/column/cell

MsgBox "Last Used Row : " & LastRow & Chr(10) & "Last Used Column : " & LastCol & Chr(10) & "Last Used Cell : " & LastCell

执行：

按照以下步骤在 Excel VBA 中查找上次使用的行和上次使用的列

第 1 步：在工作表上添加一个形状（查找最后一行/列/单元格）。

第2步：右键单击“查找最后一行/列/单元格”和“分配宏..”

第 3 步：选择“ findLastUsedCell ”，如果您的工作簿中可用，您可以看到宏列表

第 4 步：将您的 Excel 文件另存为“启用 Excel 宏的工作簿”*.xlsm

第五步：点击“ Find Last Row/Column/Cell ”执行VBA代码。对于上面给出的示例（输出），代码将在输出下方弹出。

输出：