途中に空白列があっても、最終列を選択する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Select
End With
—– べんりあつめ。—–
途中に空白列があっても、最終列を取得する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Column
End With
コメント