书写方法：Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp)

注释：

1） 格式：A列最大行.End(xlup)，注：可以是A列，可以是B列，C列，任意列

2）定位到最大行后，再向上移动到最后一行数据所在的单元格

3）调试语句: Debug.print rng.address '在立即窗口打印出 rng 的地址：$A$18

● 6. 快速定位到：一行中的最后一列单元格

书写方法：Sheet1.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft)

注释：

1） 格式：第一行最大列.End(xlToLeft)，注：可以是第1行，第2行，任意行

2） 定位到最大列后，再向左移动到最后一列数据所在的单元格

3） 调试语句:

Debug.Printrng.Address '打印地址

Debug.Printrng.Column '打印数字列号

Debug.Print "最后非空单元格地址为:" & rng.Address & "列号:"& rng.Column _

& "行号:" & rng.Row & "数值："& rng.Value

在立即窗口打印出:

$K$1

11

最后非空单元格地址为:$K$1列号:11行号:1数值：123