途中に空白列があっても、最終列を選択する。取得する。
2017/05/17
途中に空白列があっても、最終列を選択する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Select
End With
----- べんりあつめ。-----
途中に空白列があっても、最終列を取得する。
Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Column
End With