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

質問

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

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

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

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

回答No.1

hige_082 · ベストアンサー

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

こんなこと？

お礼

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