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

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