Excel VBA如何清除A1:Q50范围内合并与非合并单元格的黄色填充

原代码故障原因 #

• 未声明cell变量，也未遍历A1:Q50区域的单元格，颜色判断逻辑没有作用对象
• Range未绑定工作表对象，循环选中工作表的逻辑失效，只会操作当前活动表
• 未兼容合并单元格规则：合并单元格的填充属性仅存在于合并区域的左上角单元格，直接遍历所有单元格会漏判合并区域的填充色
• 冗余的Select操作容易触发非预期错误

修复后可直接运行的代码 #

'---开始清除黄色填充----
' 遍历所有选中的工作表
Dim ws As Worksheet
Dim targetRng As Range
Dim cell As Range

For Each ws In ActiveWindow.SelectedSheets
    ' 绑定当前工作表的A1:Q50范围
    Set targetRng = ws.Range("A1:Q50")
    
    ' 遍历范围内所有单元格
    For Each cell In targetRng
        ' 兼容合并单元格：只判断合并区域左上角单元格的填充色，避免重复判断
        If cell.MergeArea(1).Address = cell.Address Then
            If cell.Interior.Color = vbYellow Then
                cell.Interior.Color = xlNone
            End If
        End If
    Next cell
Next ws
'---结束清除黄色填充----

代码说明 #

• 自动适配所有你当前选中的工作表，支持批量处理
• 完美兼容合并单元格场景，不会漏判合并区域的黄色填充
• 无冗余操作，运行效率更高，不会触发界面闪屏

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