Question

我想要颜色范围A2：P到宏但不能着色。在我的一个宏我使用下面的代码，但它不与其他。那么任何人都可以告诉我颜色范围A2的简单代码：P

Sub SelectiveColor2()
Dim ws As Worksheet
Dim wb As Workbook
Dim lastRow As Long

lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
Range("A2:E" & lastRow).Interior.color = RGB(204, 255, 255)

End Sub

Answer 1

只需设置 ws ：

Sub SelectiveColor2()
   Dim ws As Worksheet
   Dim wb As Workbook
   Dim lastRow As Long

   Set ws = ActiveSheet

   lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
   Range("A2:E" & lastRow).Interior.Color = RGB(204, 255, 255)

End Sub

此外，您的代码会转到 E 列，而不是列 P 。

想要颜色范围A2：P

1 个答案: