【Excelマクロ】範囲の指定列選択 範囲文字入力

EXCELの範囲選択している部分の
一列部分のみを選択したいです。

画像を貼りました。マクロ
例ですが、
6行目から10行目まで選択していて、
その中のB列を選択したい場合のマクロです。

6行目～10行目→B6:B10

また、選択している範囲全て（B6:B10)に
「OK」と記入したい場合に、
どのようにするのかも教えて頂けるとありがたいです。

よろしくお願い致します。

No.1 ベストアンサー 回答者： mt2008 回答日時： 2013/10/17 10:41

こんな感じでどうでしょう

> 6行目から10行目まで選択していて、
> その中のB列を選択したい場合のマクロです。

Range("B" & Selection(1).Row & ":B" & Selection(Selection.Count).Row).Select

> また、選択している範囲全て（B6:B10)に
> 「OK」と記入したい場合に、
> どのようにするのかも教えて頂けるとありがたいです。

Selection = "OK"

この回答へのお礼

回答ありがとうございました！
助かりました！
Selectionというものを初めて使いました。
おかげさまで思い通りのものを作れそうです。

お礼日時：2013/10/17 17:02

No.2 回答者： WindFaller 回答日時： 2013/10/17 12:06

VBAの試験問題のような質問ですね。

Sub Test1()
'Rows("6:10").Select '6行目から10行目まで選択する
Intersect(Selection, Columns("B")).Value = "OK"
End Sub

この回答へのお礼

回答ありがとうございました！
助かりました！
書き方はWindFallerさんのほうが好きですが、
mt2008さんのほうが時間が早かったため、ベストアンサーはmt2008さんにさせて頂きます。
回答ありがとうございました！

お礼日時：2013/10/17 17:01