マクロについての質問です

質問

どのようにコードを書いたらいいのかわからないので
質問させてください。
宜しくお願い致します。

質問内容：
使用した範囲内の、ある列の空欄だけに"使用不可"と入力したい
のですが、どのように範囲を指定し、コードを書けばよいのでしょうか？

回答No.3

zap35

A列が100行目までデータがある場合、G1:G101の空欄に文字列を入れるマクロサンプルです。

Sub Macro1()
Dim idxR As Long
For idxR = 1 To Range("A65536").End(xlUp).Row + 1
If Cells(idxR, 7) = "" Then　'G列は７列目
Cells(idxR, 7) = "使用不可"
End If
Next idxR
End Sub

回答No.2

bonaron

例です。
Intersect(ActiveSheet.UsedRange, Columns(1)).SpecialCells(xlCellTypeBlanks) = "使用不可"

お礼

bonaronさん
ありがとうございます。やってみます。
ちなみに、下記のような範囲指定はできますでしょうか？
宜しくお願いします。

→Ａ列のデータのあるセルの一つ下のセルまでという範囲指定はできます。（空欄を抽出し、入力をしたいのはG列ですが・・・）

回答No.1

hana-hana3

＞使用した範囲内の

と言うのはどんな範囲なのでしょうか？
Ａ列のデータのあるセルまで・・・とか、具体的な範囲の決め方は無いのですか？

補足

hana-hana3さん
ご回答ありがとうございます。
説明不足ですみません。

>Ａ列のデータのあるセルまで・・・とか、具体的な範囲の決め方は無いのですか？
→Ａ列のデータのあるセルの一つ下のセルまでという範囲指定はできます。（空欄を抽出し、入力をしたいのはG列ですが・・・）
宜しくお願いします。