Excel VBA質問箱 IV

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

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


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

5306 / 76735

←次へ　｜　前へ→


	【77042】Re:条件を満たす値の検索

kanabun - 15/5/9(土) 21:19 -


	引用なし

	パスワード

▼さくらさん： >ご提案頂いたフィルタ案でトライしてみたのですが私にはむりでした。ぼくの提示した Sub tryA() に「B列だけ転記する」ための◆の一行を付け加えれば、御所望のことはできます。（フィルタは一般機能ですから、まず手動でやってフィルタ操作を理解するのが近道かもしれません） Sub tryB() 　　With Sheets("Sheet2") 　　　　.UsedRange.ClearContents 　　　　'条件をシートに書き出す　　　　.Range("Z1:AA1").Formula = "=Sheet1!$A$1" 　　　　.Range("Z2").Formula = ">=10.01" 　　　　.Range("AA2").Formula = "<=10.05" 　　　　'◆ Sheet1の表よりB列だけ Sheet2のA列へ転記（見出しのコピー）　　　　.Range("A1").Value = Sheets("Sheet1").Range("B1").Value 　　　　　　　　'フィルターAdvancedFilter 実行　　　　Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter _ 　　　　　　Action:=xlFilterCopy, _ 　　　　　　CriteriaRange:=.Range("Z1:AA2"), _ 　　　　　　CopyToRange:=.Range("A1") 　　　　.Activate 　　End With End Sub