• ベストアンサー

検索・抽出・貼り付けのマクロ

シート１のデータをオートフィルターかけて検索し抽出したものを、A列、B列、D列、F列をシート２の、A列、B列、C列、D列に貼り付けるマクロを教えて頂けますでしょうか？ 一週間位悩んでいます。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.2

Sub Test() 　　Dim FR As Range 　　With Worksheets("Sheet1") 　　　　If Not .AutoFilterMode Then 　　　　　　MsgBox "Sheet1はAutoFilterModeになっていないです。" 　　　　　　Exit Sub 　　　　Else 　　　　　　Set FR = .AutoFilter.Range 　　　　End If 　　End With 　　With Worksheets("Sheet2") 　　　　FR.Range("A:B").Copy .Range("A1") 　　　　FR.Range("D:D,F:F").Copy .Range("C1") 　　End With End Sub

その他の回答 (1)

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

エクセルには、フィルターオプションという機能があるので セルに抽出する条件を入れるだけで、別シートにデータが抽出できます。 この設定が出来たらマクロの記録でコードが得られますので、希望に合わせて 編集してみてください。 http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_advancedfilter.html などが参考に

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロを使って抽出する

    マクロを使った抽出について教えてください。 Ａ列　　Ｂ列　　Ｃ列　　Ｄ列 番号　　区分　　氏名　　年齢 　＊区分はＡ～Ｐが入ります。 　＊リスト範囲：Ａ１：Ｄ２００ セル[Ｆ１]に区分（Ａ～Ｐ）を入力して実行すると３５歳以上を抽出する。 オートフィルタの設定を使わずマクロで実行したいのですが、どのようなマクロを書けばよいのかわかりません。 マクロ初心者で申し訳ありませんが、よろしくご教授ください。

  • Excel2000マクロ

    お世話になっております。 マクロのことで教えてください（マクロ初心者です(^_^;)） A列・・日付 B列・・時刻 C列・・数値データ “時刻”が2秒おきのデータなので1分おきのデータを抽出したいので、D列にSECOND関数を使って秒だけを抜き出し、 オートフィルタで“０”だけを抽出し、これで1分おきのデータを抽出し、 B列がX軸でC列がY軸のグラフを作ります。 これをマクロで記録して自動的にやりたかったのです。 ですが、 「D列にSECOND関数を使って秒だけを抜き出し、 オートフィルタで“０”だけを抽出し、これで1分おきのデータを抽出し、・・」 のところは、うまくマクロで自動化できるのですが、 別シートに出来たグラフを見ると、一番最初に記録して作ったグラフがそのまんまできてしまいます。 次のデータでグラフをつくりたかったのですが。。 これはどうしてでしょう？ グラフまではうまくできないのでしょうか？

  • マクロでのデータの抽出＆貼り付けについて

    代理店ごとに伝票書類を作成するのに、マクロを組んでいます。 シート１のデータをオートフィルタで抽出して、シート２へ貼り付けますがうまくいかないので教えていただきたいです。 代理店は10社ほどあります。 代理店ごとの伝票（シート２以降）へはシート１の必要なデータのみ貼り付けたいです。 【シート１】 Ａ　Ｂ　Ｃ　Ｄ　Ｅ 代理店名　合計　小計　消費税　注文Ｎｏ 代理店Ａ　○○○　・・・　・・・　aaa 代理店Ｂ　×××　・・・　・・・　bbb 代理店Ａ　 ●●●　・・・　・・・　ccc 代理店Ｃ　△△△　・・・　・・・ ddd 【シート2】「代理店Ａ」 注文No　合計 aaa　○○○ ccc　●●● 下記のマクロが間違っているのは重々承知なのですが、一応記載します。 初心者なので必要な情報があれば、追記しますので教えていただければと思います。 ★エクセルは2003です ★貼り付けるときに１行目の「注文No」や「合計」の記載は必要なし ★オートフィルタで抽出後、必要な項目のデータのみ、シート２の各指定の列に貼り付けたい Sub 代理店A() With Worksheets("シート１").Range("A1") .AutoFilter Field:=1, Criteria1:="代理店A" .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("代理店A").Range("A1") .AutoFilter End With Worksheets("代理店A").Activate End Sub

  • オートフィルタ後の、マクロでの値の参照に関して

    オートフィルタ後の、マクロでの値の参照に関して 下記を悩んでいます。教えて頂ければ幸いです。 マクロで、あるデーター表から、オートフィルタを使用し、必要なデーターを 抽出し、マクロ内に戻し、その後の計算で使用したいと考えています。 A列、B列、C列にそれぞれ、検索条件を指定し、オートフィルタ後、下記のような状態になります。 参照したい値は、D列になります。 下記のような例では、2.5と2.7の値をマクロ内に戻したいです。 (例：オートフィルタ後) 1行　　A▼　　B▼　　C▼　　D 16行　**　　**　　　**　　2.5　　 20行　**　　**　　　**　　2.7 ＊2～15行目は見えなくなっています。 *17～19行目は見えなくなっています。 セルを参照し、マクロ内に戻すには、どのような構文(マクロ)の記述が必要でしょうか？ 【備考】 ・上記の例では、セルはD16、D20となりますが、抽出条件によっては、行番号が変わってしまいます。 ・抽出後のD列のデーター数は、常に2つです。 よろしくお願いします。

  • マクロでオートフィルターの抽出が出来ない

    下記のデーターをマクロで作成しましたが、2010/03/01は抽出するが、2010/03/02以降は デバッグが発生して上手くいきません。 どの様にすれば解決できるのか、ご教授お願いします。 現状） ＡファイルのＡ列のオートフィルタオプションで、抽出条件の指定にＢファイルの Ｃ６をコピーして、「Ctrl」+「V」で貼り付け抽出すると2010/03/01の２４時間分の データーが抽出されます。2010/03/02を抽出するとデバッグが発生する。 データーの詳細） Ａファイルに「元データー　Sheet」があり、Ａ６～Ａ４４６４７に、 １ヶ月分の日付が記載されてます。 （Ｂ６～Ｂ４４６４７には、２４時間を１分間隔でのデーターがあります） Ａ列の日付は、2010/03/01～2010/03/31のデーターがあり、 「セルの書式設定」を確認すると、「標準」設定で表記されてます。 オートフィルタによりＡ列の、各１日分のデーターを抽出させます。 Ｂファイルの「作成日指定　Sheet」のＢ３に2010/3/1を入力すると Ｃ６には「=$B$3」で「2010/03/01」と表示する様に「セルの書式設定」 「ユーザー定義」で「yyyy/mm/dd」を選択してます。（Ｃ３６まで設定） 以下Ｃ７に「=$B$3+1」で、Ｃ８には「=$B$3+2」で、Ｃ３６までで「2010/03/31」 と表示させてます。

  • エクセルの検索・抽出マクロについて教えて下さい。

    急遽、会社のマクロ使用可のパソコン（ヴィスタ）で、 検索・抽出のデータ作業をすることになりました。 オートフィルタの貼り付けでは、時間がかかりすぎるということで、 職場の少ない知恵を出し合って考えていますが、なかなか上手くいかず、こちらにも お尋ねさせていただきます。 シート1に、３列（番号、文字、英字）の 『参照データ』があります。 シート２の 『検索する番号』 に番号を入れ、 『検索開始』ボタンを押すと、 シート１の『参照データ』から抽出されたデータが、 シート２に 『検索後のデータ』として表になって出てくるような関数（の場合はボタンなし）か、マクロをつくりたいのですが・・ 更には シート２の『検索する番号』を、番号ではなく 表の真ん中の列の『文字』でも検索できるように（番号でも文字でも、どちらでも検索できるように・・）は出来ないでしょうか・・・ ご回答を、心から お待ちしております！ よろしく お願いします （u＿u）

  • エクセルで3つの条件で検索したい場合

    エクセルで3つの条件で検索したい場合、どうすればいいですか？ オートフィルター　オプション 抽出条件の指定 「　　」を含む 「　　」を含む で、３つ目の条件を入れる項目がありません。 例えばシートに 列 A B C D E F とあり、 「A」を含む 「B」を含む 「C」を含む という三つの条件で抽出したい場合、どのようにオートフィルター　オプションを使えばいいのでしょうか？ ▼マークのフィルターをクリックして 外したい項目のチェックボックスを外せば、A,B,Cを抽出できることはわかってますが 今回は例なだけで、実際はもっと複雑なデータなので、 「オートフィルター　オプション」「抽出条件の指定」のやり方が知りたいです。

  • マクロを使って抽出を

    エクセルで検索窓のようなものを作りたいと思っています。 A列には品番、B列にはシリーズ名、C列には対応（○×△）のような表です。 マクロを実行すると、「言葉を入力してください」のようなボックスが出て、そこに文字を入力するとオートフィルタのように抽出してくれるようなものを作りたいのですがどのようにすればいいのでしょうか？ それと、検索はB2にバナナ、B8にチョコバナナ、B10にバナナドリンクのような表だとして、検索窓にバナナと入力すると、B2、B8、B10を抽出してくれるようなものを作りたいと思います。 よろしくお願いします。

  • エクセルのＶＢＡマクロで検索と結果表示（抽出）

    エクセルのＶＢＡマクロで検索と結果表示（抽出）を行いたいです。 業務で使用している膨大なリストデータから、特定のキーワードで情報の絞り込みを行いたいのですが、上手くマクロが組めません。 機能としては、シート１で特定のキーワード（テキストボックスに）を入力し検索ボタンを押下すると、 シート２のリストデータから検索に引っかかったセルの"行"を、シート１にリストアップ（貼り付け）していくようなマクロを作りたいのです。 シート２にはB列～AH列ｘｎ行のリストデータがあり、シート２のＫ列のセル内から「シート１のテキストボックスで入力したキーワードを含む」検索を行い、 HITした行をシート１のA9の行から結果として表示を行いたいんです。 簡単に言えばオートフィルタ機能の部分一致版を作りたいのですが・・・。 （オートフィルタでは完全一致でしか抽出が出来ないので） そして、検索ボタンを押下すると前回結果はクリアしたいです。 ネット上のサンプル等も参考にしながらやってみたのですが上手く行きません。。。 どなたか上記のマクロ文をご教授願えないでしょうか。 必要な情報（シート２の特定の列）のみ表示させたいとも思いましたが、むずかしくて断念・・・。 もし可能でしたらこちらもお願い致します。 よろしくお願いいたします。

  • Excelのオートフィルタでデータ抽出するマクロについて

    オートフィルタで指定した期間のデータ抽出のマクロを作成しているのですが上手くいきません。 例えばA列に １０月２９日 １１月１日 １１月３日 １１月５日 と日付を入力しており、B列、C列にデータを入力していたとして D列１行目に１０月３１日、D列２行目に１１月４日と入力し D列１行目からD列２行目までと指定したデータを抽出するマクロを教えていただけませんか。 マクロ初心者で、困っております。どうかよろしく御願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する