跨工作表批量替换单元格背景色的脚本开发需求

下面是可直接使用的VBA脚本，能遍历工作簿内所有工作表，匹配指定旧十六进制背景色并替换为新颜色：

Sub ReplaceCellBackgroundColor()
    Dim ws As Worksheet
    Dim cell As Range
    Dim oldColorHex As String, newColorHex As String
    Dim oldColorRGB As Long, newColorRGB As Long
    
    ' 配置替换的旧/新颜色（十六进制格式，不带#）
    oldColorHex = "FFFFE0" ' 浅黄示例
    newColorHex = "ADD8E6" ' 浅蓝示例
    ' 多组颜色替换可复制下方两行并修改
    ' oldColorHex = "FFD700" ' 深黄示例
    ' newColorHex = "4169E1" ' 深蓝示例
    
    ' 十六进制转Excel识别的RGB值
    oldColorRGB = HexToRGB(oldColorHex)
    newColorRGB = HexToRGB(newColorHex)
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历当前工作表已使用单元格
        For Each cell In ws.UsedRange
            ' 匹配背景色并替换
            If cell.Interior.Color = oldColorRGB Then
                cell.Interior.Color = newColorRGB
            End If
        Next cell
    Next ws
    
    MsgBox "颜色替换完成！"
End Sub

' 辅助函数：十六进制转RGB长整型
Function HexToRGB(hexStr As String) As Long
    Dim r As Integer, g As Integer, b As Integer
    If Len(hexStr) = 6 Then
        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)
    Else
        ' 格式错误时返回白色（可按需修改）
        HexToRGB = RGB(255, 255, 255)
    End If
End Function

使用步骤 #

1. 打开目标Excel模板，按Alt + F11打开VBA编辑器
2. 右键左侧工作簿名称，选择插入→模块，粘贴上述代码
3. 修改代码中oldColorHex和newColorHex的值，替换为你需要的十六进制颜色码（不带#）
4. 若需替换多组颜色，取消注释代码里的额外颜色替换对，分别设置对应值
5. 按F5运行脚本，或回到Excel界面，通过开发工具→宏选择ReplaceCellBackgroundColor执行

注意事项 #

• 大表格运行时可能需要几秒，请勿中断操作
• 确保十六进制颜色码与Excel单元格背景色一致，可通过取色工具获取目标颜色值
• 运行前建议备份表格，避免意外情况

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