Excel マクロ

質問

マクロで一部分だけ範囲選択をかけたいのですが、
A列から指定行までと１行目の最右列までを範囲選択をしたいのですができるのですか？
出来ましたら、コードを教えてください。

コードの記述は下のとおりです。

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
a1 = Range("xfd1").End(xlToLeft).Select
Endcolumn = Application.WorksheetFunction.Max(a1)

回答No.3

kkkkkm · ベストアンサー

もしくは
Range(Cells(Cells(1, "A").End(xlDown).Row, "A"), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).Select

こういうことでしょうか

お礼

返答ありがとうございます。
大変助かりましたありがとうございました。

回答No.4

keithin

無理にＡ１を絡ませなくても
range(cells(rows.count, "A").end(xlup), cells(1, columns.count).end(xltoleft)).select
とかでイイです。

ご利用のエクセルのバージョンが不明のご相談ですが、状況に応じて
range(range("A65536").end(xlup), range("IV1").end(xltoleft)).select
とかでも。

＞指定行まで

何が「指定」なのか説明がありませんが、掲示されたマクロの書き振りが正しいと信じるならもちろん
range(range("A1").end(xldown), range("IV1").end(xltoleft)).select
などのようにしても構いません。

回答No.2

kkkkkm

> １行目内の文字までの最右列です。

Union(Range(Range("A1"), Range("A1").End(xlDown)), Range(Cells(1, "A"), Cells(1, Columns.Count).End(xlToLeft))).Select

でいかがですか。

回答No.1

kkkkkm

Union(Range(Range("A1"), Range("A1").End(xlDown)), Rows("1:1")).Select

とかいかがでしょう。

補足

回答ありがとうございます。
すみません言葉が足りませんでした。
１行目内の文字までの最右列です。