Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39154 / 76732 ←次へ | 前へ→

【42696】Re:範囲指定について
質問  ハナ  - 06/9/19(火) 16:13 -

引用なし
パスワード
   ▼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.で,空白かどうかを判別するのにデータの長さを使っていますが
もうちょっとスマートなやり方をアドバイスいただけたら嬉しいです!

0 hits

【42687】範囲指定について Rilly 06/9/19(火) 13:47 発言
【42693】Re:範囲指定について パン 06/9/19(火) 15:09 発言
【42694】Re:範囲指定について りん 06/9/19(火) 15:10 回答
【42697】Re:範囲指定について Jaka 06/9/19(火) 16:55 発言
【42700】Re:範囲指定について りん 06/9/19(火) 18:08 回答
【42696】Re:範囲指定について ハナ 06/9/19(火) 16:13 質問
【42713】Re:範囲指定について yata 06/9/19(火) 22:38 発言
【42719】Re:範囲指定について ハナ 06/9/20(水) 8:17 お礼
【42702】Re:範囲指定について Kein 06/9/19(火) 19:17 回答

39154 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free