如何在Excel多个工作表中将指定颜色的单元格设置为无填充？

你的原有代码仅作用于活动工作表，只需新增工作表遍历逻辑，即可实现同工作簿所有工作表批量处理，修改后的完整代码如下：

Sub YellowFillToNoFill()
    'RGB(246, 244, 150) 黄色填充改为无填充
    '作用范围：当前工作簿所有工作表的已用区域
    
    Dim ws As Worksheet
    Dim cell As Range

    '优化运行速度
    Application.ScreenUpdating = False

    '遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '遍历当前工作表已用区域的每个单元格
        For Each cell In ws.UsedRange
            If cell.Interior.Color = RGB(246, 244, 150) Then
                cell.Interior.Color = xlNone
            End If
        Next cell
    Next ws

    '恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "处理完成！"
End Sub

主要改动说明 #

• 新增Worksheet类型变量ws，外层新增循环遍历当前工作簿的全部工作表
• 将单元格遍历范围从原有的ActiveSheet.UsedRange（当前活动工作表已用区域）调整为对应遍历到的工作表的已用区域ws.UsedRange
• 移除了原有要求提前选中单元格的校验逻辑，运行代码无需提前选范围，自动覆盖所有工作表
• 补充了Application.ScreenUpdating = True语句，原代码关闭屏幕更新后未恢复，会导致运行后Excel屏幕无法正常刷新
• 可选添加处理完成的提示框，方便判断运行进度

如果只需要处理部分指定工作表，不需要全部工作表的话，可以在外层循环加判断条件，比如跳过名称为“汇总”“说明”的工作表：

For Each ws In ThisWorkbook.Worksheets
    '跳过指定名称的工作表
    If ws.Name <> "汇总" And ws.Name <> "说明" Then
        '原有单元格遍历逻辑
    End If
Next ws

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