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

我能够对我在这里和那里发现的一些编码进行最小的改变。 但是我很有智慧，所以我希望我能得到一些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 

我希望在将不匹配的行复制到新的工作表3后，向该行添加颜色。 我应该如何改变这个代码来添加颜色？

Answer 1

也许增加这条线？

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