如何遍历所有工作表，批量替换指定十六进制背景色为另一颜色

核心思路 #

利用Excel内置的FindFormat和ReplaceFormat对象批量匹配并替换背景色，无需逐个单元格遍历循环，效率远高于单元格级循环操作。

实现代码 #

Sub BatchReplaceBackgroundColor()
    Dim ws As Worksheet
    Dim oldHexColor As String, newHexColor As String
    Dim oldRGB As Long, newRGB As Long
    
    ' 自定义要替换的十六进制颜色（不带#前缀）
    oldHexColor = "FF0000" ' 原目标背景色（示例：红色）
    newHexColor = "00FF00" ' 替换后的背景色（示例：绿色）
    
    ' 转换十六进制为Excel兼容的长整型颜色值
    oldRGB = HexToRGB(oldHexColor)
    newRGB = HexToRGB(newHexColor)
    
    ' 配置查找格式：匹配目标背景色
    With Application.FindFormat.Interior
        .Color = oldRGB
    End With
    
    ' 配置替换格式：设置新背景色
    With Application.ReplaceFormat.Interior
        .Color = newRGB
    End With
    
    ' 遍历当前工作簿所有工作表执行替换
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.Replace What:="", Replacement:="", _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=True, ReplaceFormat:=True
    Next ws
    
    ' 重置格式配置，避免干扰后续操作
    Application.FindFormat.Clear
    Application.ReplaceFormat.Clear
    
    MsgBox "颜色替换完成！", vbInformation
End Sub

' 辅助函数：将6位十六进制颜色转换为Excel长整型颜色值
Function HexToRGB(hexStr As String) As Long
    Dim r As Integer, g As Integer, b As Integer
    r = Val("&H" & Mid(hexStr, 1, 2))
    g = Val("&H" & Mid(hexStr, 3, 2))
    b = Val("&H" & Mid(hexStr, 5, 2))
    HexToRGB = RGB(r, g, b)
End Function

使用步骤 #

1. 打开目标Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口中的工作簿名称，选择插入 > 模块
3. 将上述代码粘贴到模块窗口中
4. 修改代码中oldHexColor和newHexColor的值为你需要的十六进制颜色（不带#）
5. 按F5运行宏，或回到Excel界面通过开发工具 > 宏选择BatchReplaceBackgroundColor执行

注意事项 #

• 文件需保存为.xlsm格式（启用宏的工作簿），否则宏无法保存和运行
• 若需替换字体颜色而非背景色，只需将代码中的.Interior.Color替换为.Font.Color
• 该方法会匹配所有使用目标背景色的单元格，包括条件格式设置的背景色（若条件格式未锁定颜色）

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