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

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

Answer 1

或许添加这一行？

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

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

1 个答案: