戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
2項目抽出して別シートへ転記

    [130162] 2項目抽出して別シートへ転記-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ リッツ -(2019/04/15(17:56))
    □U R L/
      シート1のB列とD列から同じ項目の組み合わせを抽出してシート2のセルA3
      へ日付順に並べたいです。B列とD列はB列の方が優先です。
      シート1	A	B	C	D	
      	3月5日	樹脂A		ライン横	
      	3月5日	樹脂B		ライン縦	
      	4月11日	樹脂C		ライン縦	
      	4月21日	樹脂D		ライン縦	
      	4月26日	樹脂A		ライン横	
      	5月16日	樹脂A		ライン左	
      					
      シート2	
          3/5 樹脂A     ライン横
          4/26樹脂A     ライン横	
             のようにしたいです。 よろしくお願いします
      
         WIN10  エクセル2016
      			
      				
      




    [130169] Re[1]: 2項目抽出して別シートへ転記-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2019/04/15(22:16))
    □U R L/
      先ず下準備をします。(Excel 2013 の場合)
      
      Sheet1 において、
      先頭行に項目名を入力 ⇒ 式 =B2&"_"&D2 を入力したセル E2 を下方にズズーッと
      オートフィル ⇒ 式 =COUNTIF(E$2:E$7,E2) を入力したセル F2 を下方にズズーッ
      とオートフィル
      
      Sheet1
        A   B  C  D   E      F
      1 日付 樹脂  ライン  作業列   重複チェック
      2 3/05 樹脂A  ライン横 樹脂A_ライン横    2
      3 3/05 樹脂B  ライン縦 樹脂B_ライン縦    1
      4 4/11 樹脂C  ライン縦 樹脂C_ライン縦    1
      5 4/21 樹脂D  ライン縦 樹脂D_ライン縦    1
      6 4/26 樹脂A  ライン横 樹脂A_ライン横    2
      7 5/16 樹脂A  ライン左 樹脂A_ライン左    1
      
      Sheet2
        A   B  C  D  E F
      1 日付 樹脂  ライン
      2            TRUE
      3
      4
      5
      6
      7
      
      ここからがホンバン。Sheet2 (先頭行は項目名)において、
      セル F1 は空白のまま放置しておいて、その直下のセル F2 に式 =Sheet1!F2>1 
      を入力 ⇒ 適当な複数行の範囲、例えば、A1:D5 を選択 ⇒ AltAQ ⇒ [OK] ⇒ 
      開いた[フィルタオプションの設定]メニュー上の[抽出先]として“指定した範
      囲”に目玉入れ ⇒ [リスト範囲]ボックス内にマウスカーソルを放り込んで、
      元々表示されていた $A$1:$D$5 全体を選択して、Sheet1 の範囲 A1:F7 を撫で
      撫で選択して、Sheet1!$A$1:$F$7 に上書き ⇒ [検索条件範囲]ボックス内にマ
      ウスカーソルを放り込んで、範囲 $F$1:$F$2 を撫で撫で選択 ⇒ [抽出範囲]
      ボックス内にマウスカーソルを放り込んで、範囲 $A$1:$D$1 を撫で撫で選択 
      ⇒ [OK]をパシーッ ⇒ 下図が得られる
      
      Sheet2
        A   B  C  D
      1 日付 樹脂  ライン
      2 3/05 樹脂A  ライン横
      3 4/26 樹脂A  ライン横
      4




    [130170] Re[2]: 2項目抽出して別シートへ転記-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2019/04/15(22:25))
    □U R L/
      リボン表示ショートカットキーを表す AltAQ は慣例どおり Alt+AQ と書くべきでした。この意味を、序でながら、説明しておくと…
      [データ](dAta)⇒[詳細設定](advanced filter)のことです。
      




    [130173] 2項目抽出して別シートへ転記-

    記事引用/メール受信=OFF■

    □投稿者/ リッツ -(2019/04/16(12:25))
    □U R L/

      Mike 様

      ご教授ありがとうございます
      表示はできたのですが、シート1のデーターが約1500
      行ほど有り、今後も増えていきます。
      質問では数行でしたが、データーの行数を増やしても、シート2の表示は
      最初の2行だけしか抽出されないので、シート1の行数(データー)を
      増やす毎に自動でシート2の抽出結果も増えてもらいたいのですが
      フィルタオプション内の範囲を多めに指定しても(3項目共)結果は
      2行止まりでした。
      何か方法があればお願いします。




    [130177] Re[4]: 2項目抽出して別シートへ転記-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2019/04/17(15:11))
    □U R L/

      》 シート1のデーターが約1500行ほど有り、今後も増えていきます。
      そういうことは最初に書きておくべきこと!
      私、「Sheet1 において、」「E2 を下方にズズーッとオートフィル」と書いてたでしょ?だから「ズズーッと」「約1500行ほど」そうしましたか?

      》 ここからがホンバン
      も読まなきゃあ!

      》 Sheet1 の範囲 A1:F7 を撫で撫で選択して
      の「A1:F7」はこの際「A1:A10000」にしたら?

      さぁ、ブツクサ言わずに、やってみるッ!




    [130181] Re[5]: 2項目抽出して別シートへ転記-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ リッツ -(2019/04/18(13:40))
    □U R L/

      Mike 様

      ご回答頂きありがとうございます
      試した結果うまくできました

      感謝いたします




このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G