如何修改清除特定填充色的VBA代码使其在工作簿所有工作表运行？

没问题，要让这段代码作用于工作簿里的所有工作表，只需要在原代码基础上新增一个遍历工作表的循环就行，核心思路就是先逐个处理每个工作表，再执行清除指定颜色的逻辑。

先给你修改好的完整代码：

Sub RemoveSpecificColorFill_AllSheets()
    'PURPOSE: Remove a specific fill color from ALL sheets in the workbook
    Dim ws As Worksheet
    Dim cell As Range
    
    'Turn off ScreenUpdating (speeds up code)
    Application.ScreenUpdating = False
    
    'Loop through EVERY worksheet in the current workbook
    For Each ws In ThisWorkbook.Worksheets
        'Loop through each used cell in the current worksheet
        For Each cell In ws.UsedRange
            'Check for your specific fill color (replace the RGB values with yours)
            If cell.Interior.Color = RGB(255, 255, 0) Then '示例用黄色，你改成自己需要的RGB值
                cell.Interior.ColorIndex = xlColorIndexNone '清除填充色
            End If
        Next cell
    Next ws
    
    'Turn ScreenUpdating back on
    Application.ScreenUpdating = True
    MsgBox "指定填充色已清除完成！", vbInformation
End Sub

关键修改点说明： #

• 新增了Dim ws As Worksheet变量，用来代表遍历过程中的每个工作表
• 外层加了For Each ws In ThisWorkbook.Worksheets循环，遍历当前工作簿的所有工作表
• 把原代码里的ActiveSheet.UsedRange改成了ws.UsedRange，确保操作的是当前遍历到的工作表，而不是固定的活动表
• 补充了恢复Application.ScreenUpdating = True的代码（原代码里漏了这一步，会导致Excel界面卡顿），还加了一个完成提示框，方便你确认操作结果

额外小提示： #

如果你不想处理隐藏的工作表，可以在遍历工作表的循环里加个判断：

For Each ws In ThisWorkbook.Worksheets
    If ws.Visible = xlVisible Then '只处理可见工作表
        '这里放遍历单元格的代码
    End If
Next ws

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