Excel VBA質問箱 IV

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

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


75956 / 76732 ←次へ | 前へ→

【5207】Re:数値の検索
回答  Jaka  - 03/4/25(金) 14:51 -

引用なし
パスワード
   こんにちは。

Sub ika()
Dim CelA As Range, CelB As Range
Dim SaveAdA As String, SaveAdB As String
Dim STB() As String, CN As Long
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
  SaveAdA = CelA.Address
  SaveAdB = CelB.Address
  Do
   CN = CN + 1
   ReDim Preserve STB(1 To 2, 1 To CN)
   STB(1, CN) = CelA.Address
   STB(2, CN) = CelB.Address
   Set CelA = Columns("A").Find("80", After:=CelA, _
     LookAt:=xlWhole, MatchCase:=True)
   Set CelB = Columns("A").Find("B5", After:=CelB, _
     LookAt:=xlWhole, MatchCase:=True)
  Loop Until SaveAdA = CelA.Address Or SaveAdB = CelB.Address
  For i = 2 To UBound(STB, 2)
   RED = Cells(Rows.Count, "D").End(xlUp).Row + 1
   Range(STB(1, i), STB(2, i)).Offset(, 1).Copy Destination:=Range("D" & RED)
  Next
End If

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 お礼

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