能否修改VBA的.Find命令查找特定填充背景色的下一个单元格？

Excel的Range.Find方法本身不支持直接通过内容参数指定填充色，但可以通过设置查找格式结合SearchFormat:=True来实现按填充色查找的需求。以下是修改后的代码逻辑：

步骤1：定义目标填充色 #

先确定你要查找的特定填充色，可以用RGB值、ColorIndex，或者主题色（如果是Excel主题里的颜色）。示例中用黄色（RGB(255,255,0)）作为目标：

' 替换为你实际需要的填充色
Dim targetFillColor As Long
targetFillColor = RGB(255, 255, 0) ' 黄色示例
' 也可以用ColorIndex：targetFillColor = 6

步骤2：设置查找格式 #

清除之前的查找格式缓存，然后设置要匹配的填充色格式：

' 清除旧的查找格式，避免干扰
Application.FindFormat.Clear
' 设置目标填充色为查找格式
Application.FindFormat.Interior.Color = targetFillColor

步骤3：查找目标格式的单元格 #

使用Find方法按格式查找下一个符合条件的单元格，然后计算结束行：

Dim foundCell As Range
' 按格式查找，What留空，LookIn指定为xlFormats，开启SearchFormat
Set foundCell = pnRange.Find(What:="", LookIn:=xlFormats, SearchDirection:=xlNext, SearchFormat:=True)

' 确定删除区域的结束行
If Not foundCell Is Nothing Then
    btmRowDelete = foundCell.Row - 1
Else
    ' 如果找不到目标格式的单元格，默认用pnRange的最后一行
    btmRowDelete = pnRange.Rows(pnRange.Rows.Count).Row
End If

完整修改后的代码片段 #

把上述逻辑整合到你的原有代码中：

' 1. 确定起始行（原有逻辑不变）
topRowDelete = pnRange.Find(deletePartNumber, LookIn:=xlValues, LookAt:=xlWhole).Row

' 2. 定义目标填充色
Dim targetFillColor As Long
targetFillColor = RGB(255, 255, 0) ' 替换为你的目标颜色

' 3. 设置查找格式
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = targetFillColor

' 4. 查找下一个带目标填充色的单元格
Dim foundCell As Range
Set foundCell = pnRange.Find(What:="", LookIn:=xlFormats, SearchDirection:=xlNext, SearchFormat:=True)

' 5. 确定结束行
If Not foundCell Is Nothing Then
    btmRowDelete = foundCell.Row - 1
Else
    btmRowDelete = pnRange.Rows(pnRange.Rows.Count).Row
End If

' 6. 删除区域（原有逻辑不变）
Set pnRange = Rows(topRowDelete & ":" & btmRowDelete)
pnRange.Delete

' 可选：清除查找格式，避免影响后续操作
Application.FindFormat.Clear

注意事项 #

• 如果目标是Excel主题色（而非自定义RGB），需要用ThemeColor和TintAndShade来设置格式，例如：

  Application.FindFormat.Interior.ThemeColor = xlThemeColorAccent1
  Application.FindFormat.Interior.TintAndShade = 0.399975585192419 ' 淡色调整值
  

• 务必在操作完成后调用Application.FindFormat.Clear，避免残留的查找格式影响后续的查找或筛选操作。

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