|
▼Rilly さん:
今日は
>A列において、データのある一番下のセルの一つ下のセルの行までを範囲指定し、
>その行までの範囲内でC列の中の空欄を抽出し、"使用不可"と入力したいのですが、どのように範囲指定すればよいのでしょうか?
>よろしくお願いします。
>
> A B C
>1 r n ()←使用不可
>2 n f z
>3 b w q
>4 j ()←使用不可
>5 ()←使用不可
わたくしも、こんな感じのをひとつ(笑)
Option Explicit
Private Const MyStr = "使用不可"
Sub TEST()
Dim RR As Range 'C列の検索範囲
Dim R As Range
Dim LC As Long 'データの最後の行 + 1
'
LC = Range("A1").End(xlDown).Row + 1
Set RR = Range("C1", "C" & LC)
For Each R In RR
If Len(R) < 1 Then '----- 1.
R.Value = MyStr
End If
Next
Set RR = Nothing
End Sub
Rilly さんに便乗した質問で・・・
1.で,空白かどうかを判別するのにデータの長さを使っていますが
もうちょっとスマートなやり方をアドバイスいただけたら嬉しいです!
|
|