Excel VBA如何查找区域中包含数值（非文本）的最后一行

针对你的需求，这里提供几种实用的VBA实现方法，替代原来匹配所有内容的Range.Find写法：

方法1：利用SpecialCells快速筛选数值单元格 #

这个方法直接筛选出区域内的数值单元格，然后取最后一个的行号，效率最高：

Dim numRange As Range
Dim lastNumRow As Long

' 处理区域内无数值单元格的报错情况
On Error Resume Next
' 若要包含公式生成的数值，把xlCellTypeConstants改成xlCellTypeFormulas，或两者相加：xlCellTypeConstants + xlCellTypeFormulas
Set numRange = ActiveSheet.Range("A6:A167").SpecialCells(xlCellTypeConstants, xlNumbers)
On Error GoTo 0

If Not numRange Is Nothing Then
    lastNumRow = numRange.Cells(numRange.Cells.Count).Row
Else
    ' 没有找到数值单元格时的处理，比如赋值-1作为标识
    lastNumRow = -1
End If

方法2：从区域底部向上循环判断 #

逻辑简单直观，适合小范围区域，无需额外错误处理：

Dim lastNumRow As Long
Dim i As Long

lastNumRow = -1 ' 默认标识未找到数值
' 从区域最后一行向上遍历
For i = 167 To 6 Step -1
    With ActiveSheet.Cells(i, "A")
        ' 排除空值，仅判断数值型内容
        If Not IsEmpty(.Value) And IsNumeric(.Value) Then
            lastNumRow = i
            Exit For ' 找到后立即退出循环
        End If
    End With
Next i

方法3：结合Range.Find与数值判断 #

通过反向查找，每次找到内容后判断是否为数值，直到找到目标行：

Dim foundRng As Range
Dim lastNumRow As Long

Set foundRng = ActiveSheet.Range("A6:A167").Find(What:="*", _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, _
    LookIn:=xlValues)

Do While Not foundRng Is Nothing
    If IsNumeric(foundRng.Value) Then
        lastNumRow = foundRng.Row
        Exit Do
    End If
    ' 缩小查找范围，继续向上查找
    Set foundRng = ActiveSheet.Range("A6:A" & foundRng.Row - 1).Find(What:="*", _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, _
        LookIn:=xlValues)
Loop

' 若未找到，lastNumRow会保持默认值Empty，可按需处理
If IsEmpty(lastNumRow) Then lastNumRow = -1

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