Sub LastCell()
Dim rng As Range '定义变量
Set rng = Cells(Rows.Count, 1).End(xlUp) '获取指定列最后一个非空单元格也可以写为 Cells(Rows.Count, [A]).End(xlUp)
If rng.Value = "" Then
MsgBox "该列没有非空单元格"
Else
MsgBox "A列的最后一个非空单元格是" & rng.Address(0, 0) _
& ",行号" & rng.Row & ",数值" & rng.Value
End If
Set rng = Nothing
End Sub
可能需要用到首尾去空格的操作,排除非空单元格只包含空格的情况。待定。