途中に空白列があっても、最終列を選択する。取得する。

途中に空白列があっても、最終列を選択する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Select
End With

----- べんりあつめ。-----

途中に空白列があっても、最終列を取得する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Column
End With