本文由日文译成中文。
在 Excel 中使用 VBA 时，您经常要检索和操作工作表的最后一行和最后一列。
本节将介绍如何做到这一点。
< Sponsored Links >
获取最后一行
从单元格向下获取最后一行
根据单元格 “B2” 获取最后一行的编号。
将以下内容写入 VBE。
Sub test1()
MsgBox Range("B2").End(xlDown).Row
End Sub
在执行编写的 VBA 时，最后一行最后一个单元格的行号会显示在一条信息中。
如果单元格中没有任何内容，则显示最后一行中最后一个单元格的行号。
获取工作表的最后一行
获取工作表最后一行的编号。
将以下内容写入 VBE。
Sub test2()
MsgBox Cells.SpecialCells(xlCellTypeLastCell).Row
End Sub
在执行编写的 VBA 时，最后一行最后一个单元格的行号会显示在一条信息中。
“SpecialCells(xlCellTypeLastCell)” 获取工作表中使用的最后一个单元格，因此如果有一个单元格使用了格式化，就会显示该单元格的行号。
获取最后一列
获取单元格中的最后一列
让我们试着根据单元格 “B4” 来计算右侧最后一列的数字。
将以下内容写入 VBE。
Sub test3()
MsgBox Range("B4").End(xlToRight).Column
End Sub
在执行编写的 VBA 时，最后一列单元格的列号会显示在一条信息中。
※列号的顺序如下：A 列为 1，B 列为 2，C 列为 3，以此类推。
如果有单元格中没有任何内容，则显示最后一行连续条目中最后一个单元格的编号。
获取工作表的最后一列
获取工作表最后一列的编号。
将以下内容写入 VBE。
Sub test4()
MsgBox Cells.SpecialCells(xlCellTypeLastCell).Column
End Sub
在执行编写的 VBA 时，信息中会显示最后一个单元格的列号。
“SpecialCells(xlCellTypeLastCell)” 获取工作表中使用的最后一个单元格，因此如果有一个单元格使用了格式化，就会显示该单元格的列号。
< Sponsored Links >