Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
別ファイルから特定IDのみをコピーする
投稿日時: 20/08/02 11:15:03
投稿者: 桃太郎7

宜しくお願いします。
特定のsheetをファイル1からファイルAへコピーがしたいです。
 
  ファイル1 sheet1(ID 1のみ) 
   A  B  C  D   E  F  G 
 1 NO 日付 ID 得意先 商品 xx xx
 2  1 7/20  1   A  AA xx xxx
 3  2 7/21  1   A  AB  
 4  3 7/22  1   A  AA
 5  4 7/23  1   A  AC
 
  ファイル1 sheet 2 (ID 1以外) 
   A  B  C   D  E  F  G
 1 NO 日付 ID 得意先 商品 xx xx
 2  1 7/20  2   B  AA
 3  2 7/21  2   B  AB  
 4  3 7/22  3   C  AA
 5  4 7/23  4   D  AC
 
 上記のファイル1のsheet1とsheet2がファイルごとにランダムに入れ替わってくる。
 
 例 ファイル1 sheet1 ID 1    sheet2 ID 1以外
   ファイル2 sheet1 ID 1以外  sheet2 ID 1
   ファイル3 sheet1 ID 1    sheet2 ID 1以外 
   ファイル4 sheet1 ID 1    sheet2 ID 1以外
 
 目的例 ファイルAに各sheetのID 1を指定してコピーをしたいです。
 例 ファイルAのsheet1へコピー
     A   B   C   D  E  F  G
   1 NO ファウル sheet  日付 ID 得意先 商品 
   2  1 ファイル1 sheet1 7/20  1   A  AA 
   3  2 ファイル2 sheet2 xx  1   A  xx
   4  3 ファイル3 sheet1 xx  1   A  xx
   5  4 ファイル4 sheet1 xx  1   A  xx
 
  説明が不十分な点が多々ありますが宜しくご指導下さい。
 
 
   

回答
投稿日時: 20/08/02 13:44:54
投稿者: んなっと

新規フォルダーに4つのファイルをまとめて入れましょう。
 
以下、E:\office\Excel\test というフォルダに
ファイル1
ファイル2
ファイル3
ファイル4
が入っているとします。
 
 
 データ
→データの取得
→その他のデータソースから
→空のクエリ
→詳細エディター
→「let ... in ..」の部分を全選択して削除
→以下の文字列を貼り付け
 
let
    Src = Folder.Files("E:\office\Excel\test"),
    Sel = Table.SelectColumns(Src,{"Name","Content"}),
    Add = Table.AddColumn(Sel, "Tbl", each Excel.Workbook([Content],true)),
    Del = Table.RemoveColumns(Add,{"Content"}),
    Exp1 = Table.ExpandTableColumn(Del, "Tbl", {"Data"}),
    Exp2 = Table.ExpandTableColumn(Exp1, "Data", List.Union(List.Transform(Exp1[Data], each Table.ColumnNames(_)))),
    Flt = Table.SelectRows(Exp2, each ([ID] = 1))
in
    Flt
 
→完了
→閉じて読み込む

投稿日時: 20/08/03 11:30:43
投稿者: 桃太郎7

んなっとさん 早速の回答ありがとうございます。
私のスキルでは、大変難しい内容ですが頑張って挑戦しますので宜しくお願いします。
教えて下さい
1)クエリの設定は、ファイル1〜4それぞれに設定するんですか?
  ファイルAにクエリ設定をするのですか?
2)ご指導通りにやりましたらクエリ設定まで行きましたら、フォルダに「E:\office\Excel\test」
  を明記しましたが、「E:\office\Excel\test」フォルダが見つかりませんのエラー表示が出ました。
3)まだまだ、分らない事はここでストップしています。
4)進捗状況を画像ファイルで説明する事は出来ないですか?ファイル添付方法は!
 
宜しくお願いします。
 

回答
投稿日時: 20/08/03 11:54:24
投稿者: んなっと

E:\office\Excel\test の部分だけ
そちらの環境に合わせて変更してください。

投稿日時: 20/08/04 14:54:28
投稿者: 桃太郎7

んなっとさん 早速のご回答頂きましてありがとうございました。
 
私の、スキルでは難しくて今回は諦めます!
いろいろとご親切にご指導頂きましてありがとうございました。