マクロについての質問２

質問

また新たな質問がありますので
質問させてください。宜しくお願いします。

質問内容：
Ａ列のデータのあるセルの一つ下のセル行まで、G列の中の空欄を抽出し、"使用不可"と入力したいのですが、
どのように範囲指定すればよいのでしょうか？

　　A　B　C　D　E　F　G
１　d 　t 　y 　t 　 e 　 () ←使用不可
２ r 　 y 　l 　f 　 c s 　a
３ y 　 　 　 h 　 z 　 () ←使用不可
４　　　　　　　　　　　　　() ←使用不可

こんな表にしたいのですが・・・どうでしょうか？

回答No.3

noname#192382

回答がピンボケでしたらごめんなさい。
当方えくせる97です。次のマクロで質問者の希望のようにできましたが。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/9/20 ユーザー名 :
'
Dim i As Integer
Dim myGyo As Integer
Set myFindRange = Range("A1:A100").Find(" ")
MsgBox myFindRange.Row
myGyo = myFindRange.Row

'myGyo = 4
For i = 1 To myGyo
If Cells(i, 7) = " " Then
Cells(i, 7) = "不可 "
Else
End If
Next i
'
End Sub

回答No.2

ASIMOV

＞G1=IF(F1="","使用不可","")
＞G2=IF(A1<>"",IF(F2="","使用不可",""),"")
＞G3 以下は、G2 をコピー

間違えました、G ではなく H ですね(^_^;)

回答No.1

ASIMOV

G1=IF(F1="","使用不可","")
G2=IF(A1<>"",IF(F2="","使用不可",""),"")
G3 以下は、G2 をコピー

で、A列のデータが、途中が抜けている場合は、うまくいかない場合が有ります