Sub 列幅を変更する() Columns("A").ColumnWidth = 16 End Sub
Sub 列幅を変更する_数字指定() Columns(1).ColumnWidth = 16 End Sub