Excel VBA質問箱 IV

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

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


75983 / 76738 ←次へ | 前へ→

【5185】Re:数値の検索
回答  Jaka  - 03/4/24(木) 15:45 -

引用なし
パスワード
   ラッキーさん、りんさん、こんにちは。
横レス失礼します,

詳細がわかりませんが...。

Sub ebi()
Dim CelA As Range, CelB As Range, RagAB As Variant
Set CelA = Columns("A").Find("80", After:=Range("A" & Rows.Count), _
      LookAt:=xlWhole, MatchCase:=True)
Set CelB = Columns("A").Find("B5", After:=Range("A" & Rows.Count), _
      LookAt:=xlWhole, MatchCase:=True)
If Not CelA Is Nothing And Not CelB Is Nothing Then
  RagAB = Range(CelA, CelB).Offset(, 1).Value
  Range("D1").Resize(UBound(RagAB)).Value = RagAB
  Erase RagAB
else
  msgbox "見つかりませんでした。"
End If
Set CelA = Nothing
Set CelB = Nothing
End Sub
1 hits

【5154】数値の検索 ラッキー 03/4/23(水) 18:21 質問
【5160】Re:数値の検索 りん 03/4/23(水) 22:16 発言
【5175】Re:数値の検索 ラッキー 03/4/24(木) 10:56 質問
【5185】Re:数値の検索 Jaka 03/4/24(木) 15:45 回答
【5190】Re:数値の検索 ラッキー 03/4/24(木) 16:26 質問
【5207】Re:数値の検索 Jaka 03/4/25(金) 14:51 回答
【5231】Re:数値の検索 ラッキー 03/4/29(火) 15:54 質問
【5239】Re:数値の検索 Jaka 03/4/30(水) 12:21 回答
【5250】Re:数値の検索 ラッキー 03/4/30(水) 14:41 お礼

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