Excel VBA如何获取列中最后一个非空单元格值（中间允许有空单元格）

嘿，这个坑我之前踩过！Range("B1").End(xlDown).Value确实会在遇到第一个空单元格就停止搜索，没法跳过中间的空值找到列末尾的最后一个非空单元格。给你两个实用的解决方案：

方法一：从列尾向上搜索（最常用） #

这是最简单高效的方式，直接从B列的最后一行开始向上查找第一个非空单元格，不管中间有多少空值都能跳过：

Dim a As Variant
' 从B列最后一行往上找第一个非空单元格
a = Cells(Rows.Count, "B").End(xlUp).Value

这个方法的优势是代码简洁，执行速度快，适合绝大多数常规场景。如果B列全为空，a会返回Empty，你可以根据需求加个判断处理这种情况。

方法二：循环遍历（更灵活） #

如果你需要更精细的控制（比如处理全空的情况、或者在查找过程中做额外判断），可以用循环从列尾向上遍历：

Dim a As Variant
Dim lastRow As Long
lastRow = Rows.Count ' 先定位到工作表最后一行

' 从最后一行往上找，直到找到非空单元格
Do While lastRow >= 1 And IsEmpty(Cells(lastRow, "B"))
    lastRow = lastRow - 1
Loop

' 判断是否找到非空单元格
If lastRow >= 1 Then
    a = Cells(lastRow, "B").Value
Else
    ' 处理B列全空的情况，比如给a设置默认值
    a = "无有效数据"
End If

这种方法虽然代码长一点，但能明确处理全空的边界情况，避免后续代码出错。

注意事项 #

如果你的工作表有隐藏行或者筛选状态，End(xlUp)可能会受到影响（比如只能看到可见行的最后一个非空单元格）。这时候需要先取消筛选或者处理隐藏行，再执行查找逻辑。

内容的提问来源于stack exchange，提问作者zih