vba - 复制到新工作表后用颜色填充行

Question

我能够对我在这里和那里发现的一些编码进行最小的更改。但我很机智，所以我希望我能在这行 VBA 代码方面得到一些帮助:

With Worksheets(3)                       
    Worksheets(1).Range(Worksheets(1).Cells(intCopyRow, 1), _
        Worksheets(1).Cells(intCopyRow, bytColumnsInData)).Copy _
    Destination:=.Cells(.Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With 

我希望在将不匹配的行复制到新的 sheet3 后为该行添加颜色。我应该如何更改此代码以添加颜色？

Answer 1

也许添加这一行？

' colors the row Red
.Cells(.Rows.Count, 1).End(xlUp).EntireRow.Interior.Color = RGB(255, 0, 0)