vba - 如何通过指定范围而不是 UsedRange 选项使用 Excel 宏清除单元格填充颜色

Question

我需要帮助解决以下问题:
如何通过在 Excel VBA 中指定范围或无限范围而不是使用 UsedRange 来清除单元格填充颜色清除填充颜色？

Worksheets("Sheet2").UsedRange.Cells.Interior.Color = -4142

Answer 1

要清除填充颜色，请不要重置颜色代码；更改.Interior.Pattern到 xlNone。

with Worksheets("Sheet2")
    with .cells(1, 1).currentregion
        with .resize(.rows.count -1, .columns.count).offset(1, 0)
            .Cells.Interior.Pattern = xlNone
        end with
    end with
end with