Excel VBA質問箱 IV

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

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


26358 / 76732 ←次へ | 前へ→

【55705】Re:Find検索からFindNext が作動できない
発言  テト  - 08/5/16(金) 11:43 -

引用なし
パスワード
   別案。
まぁ、AdvancedFilterの方が良いと思うけど、ベタに考えるとこんなとこ?
難しいこと考える必要もないしw

――――――――――――――――――――――――――――――
Dim lastRow As Long
Dim i As Long
Dim uRng As Range

lastRow = Range("A1").End(xlDown).Row

For i = 2 To lastRow
  With Range("B" & i)
    If .Value = "果物" And _
      .Offset(0, 1).Value = "りんご" _
    Then
      If uRng Is Nothing Then
        Set uRng = .Resize(1, 2)
      Else
        Set uRng = Union(uRng, .Resize(1, 2))
      End If
    End If
  End With
Next i

If Not uRng Is Nothing Then
  uRng.Copy Range("H2")
End If
――――――――――――――――――――――――――――――

0 hits

【55513】Find検索からFindNext が作動できない yukio 08/5/9(金) 10:20 質問
【55517】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 10:50 回答
【55531】Re:Find検索からFindNext が作動できない yukio 08/5/9(金) 19:29 お礼
【55533】Re:Find検索からFindNext が作動できない kanabun 08/5/9(金) 19:46 発言
【55541】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 14:36 お礼
【55543】Re:Find検索からFindNext が作動できない kanabun 08/5/10(土) 15:31 発言
【55703】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 11:10 お礼
【55704】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 11:29 発言
【55714】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 15:41 発言
【55733】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 13:44 お礼
【55735】Re:Find検索からFindNext が作動できない kanabun 08/5/17(土) 13:50 発言
【55534】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 19:47 発言
【55542】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 15:00 お礼
【55591】Re:Find検索からFindNext が作動できない ひげくま 08/5/12(月) 14:37 回答
【55699】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 9:12 お礼
【55705】Re:Find検索からFindNext が作動できない テト 08/5/16(金) 11:43 発言
【55737】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 14:16 お礼

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