如何让VBA代码遍历Excel工作簿所有工作表并修改列颜色？

你的代码核心问题是没有明确绑定工作表对象——在With ws代码块中，Range调用缺少前缀.，导致始终指向活动工作表，而非循环中的当前工作表。此外原代码里的RGB参数存在超过255的非法值（RGB的红/绿/蓝分量只能是0-255），以及LastRow的获取方式存在空行风险，以下是修正后的完整代码：

Sub rowColors()
    Dim LastRow As Long
    Dim cell As Range
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        With ws
            ' 从Q列最后一行向上找，避免空行导致LastRow错误
            LastRow = .Cells(.Rows.Count, "Q").End(xlUp).Row
            ' 确保从Q6开始，若LastRow小于6则跳过
            If LastRow >= 6 Then
                For Each cell In .Range("Q6:Q" & LastRow)
                    Select Case cell.Value
                        Case "6"
                            cell.EntireColumn.Interior.Color = RGB(140, 229, 199)
                        Case "12"
                            cell.EntireColumn.Interior.Color = RGB(129, 250, 255) ' 修正280为255
                        Case "20"
                            cell.EntireColumn.Interior.Color = RGB(129, 250, 255) ' 修正260为255
                        Case "10"
                            cell.EntireColumn.Interior.Color = RGB(129, 225, 255) ' 修正275为255
                        Case "16"
                            cell.EntireColumn.Interior.Color = RGB(150, 180, 255) ' 修正290为255
                    End Select
                Next cell
            End If
        End With
    Next ws
End Sub

关键修改说明： #

• 绑定工作表对象：所有Range、Cells、Rows前添加.，确保操作的是当前循环的ws工作表，而非活动表
• 修正RGB参数：将超过255的数值改为255（Excel会自动截断非法值，手动修正更可控）
• 优化LastRow获取：从Q列最后一行向上查找有效数据行，避免Q6下方有空行时End(xlDown)跳到表格底部的错误
• 增加范围判断：当LastRow小于6时跳过循环，避免处理无效范围
• 改用Select Case：比多个ElseIf更简洁易读

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