Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26358 / 76732

←次へ　｜　前へ→


	【55705】Re:Find検索からFindNext　が作動できない

テト - 08/5/16(金) 11:43 -


	引用なし

	パスワード

別案。まぁ、AdvancedFilterの方が良いと思うけど、ベタに考えるとこんなとこ？難しいこと考える必要もないしｗ ―――――――――――――――――――――――――――――― 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 ――――――――――――――――――――――――――――――