エクセル マクロ 選択範囲を含む行の特定列を選択し、決まった値を入力させたいです。

みなさんいつもありがとうございます。

ある範囲を選択しているときに、その選択範囲を含む行の、
特定の列全てに決まった文字列を入力させたいです。

【例】
(1)の範囲を選択している時に実行すると
(2)のセル全てに『ABC』と入力　
（下の場合は文字列を入力させたいのがC列）
　(1)　　　　　　　　(2)
A2:A4　　⇒　　C2:C4
A2:B4　　⇒　　C2:C4
B5:E10　　⇒　　C5:C10

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

No.1 ベストアンサー 回答者： hige_082 回答日時： 2009/02/21 02:12

Sub test()

Dim i As Long, ii As Long
Dim a As String
a = "ABC"
i = Selection.EntireRow.Row
ii = Selection.EntireRow.Count + i - 1
Range(Cells(i, 3), Cells(ii, 3)) = a
End Sub

こんなこと？

この回答へのお礼

まさにこれです！
とってもうれしいです！
ありがとうございました！

お礼日時：2009/02/21 03:32