对指定单元格涂色

Dim rng_usedRange As Range

    Set rng_usedRange = Worksheets(fName).UsedRange

    For Each rng_color In rng_usedRange

        If rng_color.Value = "OUTPUT" Then

            colCnt = Cells(rng_color.Row, Columns.Count).End(xlToLeft).Column

            For c = rng_color.Column To colCnt

                If Worksheets(fName).Cells(rng_color.Row, c).Value <> "" Then

                    Worksheets(fName).Cells(rng_color.Row, c + 1).Interior.Color = RGB(205, 197, 191)

                End If

            Next

        End If

    Next