| |
▼Rilly さん：
今日は
>Ａ列において、データのある一番下のセルの一つ下のセルの行までを範囲指定し、
>その行までの範囲内でＣ列の中の空欄を抽出し、"使用不可"と入力したいのですが、どのように範囲指定すればよいのでしょうか？
>よろしくお願いします。
>
> Ａ Ｂ Ｃ
>１ ｒ ｎ ()←使用不可
>２ ｎ ｆ ｚ
>３ ｂ ｗ ｑ
>４ ｊ ()←使用不可
>５ ()←使用不可
わたくしも、こんな感じのをひとつ(笑）
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.で,空白かどうかを判別するのにデータの長さを使っていますが
もうちょっとスマートなやり方をアドバイスいただけたら嬉しいです！
|
|
ハナ
- 06/9/19(火) 16:13 -
