本示例将工作表 Sheet1 上每隔一列的列宽设置为 4 磅。
For Each col In Worksheets("Sheet1").Columns
If col.Column Mod 2 = 0 Then
col.ColumnWidth = 4
End If Next col