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
网友评论