本示例将工作表 Sheet1 上每隔一列的列宽设置为 4 磅。

For Each col In Worksheets("Sheet1").Columns

    If col.Column Mod 2 = 0 Then

        col.ColumnWidth = 4

    End If
Next col