想要的顏色範圍A2：P

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 

而且你的代碼去列Ë，而不是列P 。