こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel マクロ

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

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

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

投稿日時 - 2015-11-13 15:38:04

QNo.9079673

すぐに回答ほしいです

質問者が選んだベストアンサー

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

こういうことでしょうか

投稿日時 - 2015-11-13 18:33:51

お礼

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

投稿日時 - 2015-11-19 11:47:11

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.4

無理にA1を絡ませなくても
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
などのようにしても構いません。

投稿日時 - 2015-11-13 22:09:15

ANo.2

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

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

でいかがですか。

投稿日時 - 2015-11-13 18:16:48

ANo.1

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

とかいかがでしょう。

投稿日時 - 2015-11-13 16:05:58

補足

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

投稿日時 - 2015-11-13 16:23:26

あなたにオススメの質問