Excel VBA：如何查找指定列中高亮单元格的最后一行？

你现有的代码是获取指定列已使用区域的最后一行：

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

要定位指定列中带有填充高亮的最后一行，可以通过以下两种VBA实现方式：

方法1：反向遍历行（适合小数据量） #

从该列已使用区域的最后一行往上逐个检查单元格的填充颜色，找到第一个匹配的行号：

Function GetLastHighlightedRow(targetCol As Integer, highlightColor As Long) As Long
    Dim lastUsedRow As Long
    Dim i As Long
    
    ' 先获取列的已用区域最后一行，缩小查找范围
    lastUsedRow = Cells(Rows.Count, targetCol).End(xlUp).Row
    
    ' 从最后一行向上遍历
    For i = lastUsedRow To 1 Step -1
        If Cells(i, targetCol).Interior.Color = highlightColor Then
            GetLastHighlightedRow = i
            Exit Function
        End If
    Next i
    
    ' 无匹配时返回0
    GetLastHighlightedRow = 0
End Function

使用示例 #

比如要查找A列（列号1）中红色高亮（RGB(255,0,0)）的最后一行：

Sub TestHighlightRow()
    Dim resultRow As Long
    resultRow = GetLastHighlightedRow(1, RGB(255, 0, 0))
    
    If resultRow > 0 Then
        MsgBox "A列高亮单元格的最后一行是第" & resultRow & "行"
    Else
        MsgBox "A列未找到高亮单元格"
    End If
End Sub

如果习惯用ColorIndex（比如红色的ColorIndex是3），可以把函数里的判断条件改成：

If Cells(i, targetCol).Interior.ColorIndex = highlightColorIndex Then

同时调整函数参数为highlightColorIndex As Integer即可。

方法2：使用Find方法（适合大数据量） #

利用Excel的查找功能反向定位，效率比遍历更高：

Function GetLastHighlightedRow_Find(targetCol As Integer, highlightColor As Long) As Long
    Dim targetRng As Range
    Dim foundRng As Range
    Dim lastUsedRow As Long
    
    lastUsedRow = Cells(Rows.Count, targetCol).End(xlUp).Row
    Set targetRng = Columns(targetCol).Resize(lastUsedRow)
    
    ' 设置查找格式为目标填充色
    Application.FindFormat.Interior.Color = highlightColor
    
    ' 从区域末尾向上查找
    Set foundRng = targetRng.Find(What:="", SearchDirection:=xlPrevious, SearchFormat:=True)
    
    If Not foundRng Is Nothing Then
        GetLastHighlightedRow_Find = foundRng.Row
    Else
        GetLastHighlightedRow_Find = 0
    End If
    
    ' 重置查找格式，避免影响后续操作
    Application.FindFormat.Clear
End Function

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