EXCEL（ 获得指定列的最后一个非空单元格）

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

可能需要用到首尾去空格的操作，排除非空单元格只包含空格的情况。待定。