使用单行代码在VBA Excel中格式化多个范围

Question

如何使用单行代码在VBA Excel中格式化多个单元格范围的数字,对齐,字体,边框,填充,保护等？例如,我有以下代码

With Sheets("Sheet1")
    .Columns("A").ColumnWidth = 15
    .Columns("C").ColumnWidth = 15
    .Columns("G").ColumnWidth = 15
    .Range("A:C").Font.Color = vbRed
    .Range("G:G").Font.Color = vbRed
End With

我可以这样做(伪代码):

With Sheets("Sheet1")
    .Columns("A", "C", "G").ColumnWidth = 15
    .Range("A:C", "G:G").Font.Color = vbRed
End With

我认为类似的东西.Columns(Array("A", "C", "G")).ColumnWidth = 15会起作用,但是发生了错误.

Answer 1

请尝试:
.Range("A:A, C:C, G:G").ColumnWidth = 15
和
.Range("A:C, G:G").Font.Color = vbRed