Sub Clearall()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")
Dim Clrallblue As Range
Set Clrallblue = Range("C14:I19")
For Each Cell In Clrallblue.Cells
With Cell
.ClearContents
.Borders.LineStyle = XlLineStyle.xlContinuous
.Interior.ColorIndex = RGB(153, 204, 255)
End With
Next Cell
End Sub
.ColorIndex
需要一个整数值。如果要使用 RGB,请改用.Color
。
ColorIndex 不接受 RGB,请在此处查看完整的颜色索引表: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/colorindex-property