Хотите цветной диапазон 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

Просто SetWS:

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 ,