[[20220813193606]]　『2行の項目行をキーにデータ転記したい』（困ったこまどり姉妹）　ページの最後に飛ぶ

『2行の項目行をキーにデータ転記したい』（困ったこまどり姉妹）

どうぞよろしくお願いいたします。

以下のような「元データ」から「転記先シート」へのコピペ作業が、毎月発生しています。
（1行目と2行目の項目をキーに、3行目以降のデータをコピペ）

今は、シートを並べて目視確認でコピペしているのですが
VBAやエクセル関数など何か良い方法があれば、教えていただけると大変ありがたいです。
どうぞよろしくお願いいたします。

※「元データ」の項目の並びは、その月によって並びが変わります。
（例では「小麦/パン」はA列にあるが、A列以外に表示されることもある）

●元データ

   A    B       C       D	E
 1 小麦	小麦	米	米	大麦
 2 パン	麺	パン	もち	もち
 3 		2		1
 4 2	0	3	2
 5 3	1	1		4
 6 		5	7	2
 7 2	3	4		3
 8 4	2	4	1
 9 	5		2
10		1		2

●転記先シート

   A    B       C       D	E
 1 小麦	大麦	米	小麦	米
 2 麺	もち	もち	パン	パン
 3
 4
 5
 6
 7
 8
 9
10

＜使用 Excel：Office365、使用 OS：Windows10 ＞

こんな感じでどですか（試してませんが）

１）元データシートの３行目に行挿入
２）３行目に、=A1&A2として右にコピー
３）３行目をコピーして、転記先シート３行目に挿入
４）フィルターの詳細設定で、転記
５）３行目を削除

（マナ） 2022/08/13(土) 20:17

マナさん
早々にご返信いただき誠にありがとうございます！
フィルターの詳細設定という機能を良く知らないので、調べてみたいと思います。
ありがとうございましたm(__)m
（困ったこまどり姉妹） 2022/08/13(土) 20:42

こういう事ですか？

エラー処理は　してませんがね。
_

代表式、

=LET(あ,OFFSET(Sheet1!A$1,ROW()-1,SUMPRODUCT(((A$1=Sheet1!A$1:E$1)*(A$2=Sheet1!$A$2:$E$2)*COLUMN(Sheet1!$A$1:$E$1)))-1,1,1),IF(あ="","",あ))

検証ファイル、

尚、

ファイルは　1度、
ローカルに　別名保存して、
其の　保存ファイルを、
扱うように　してくださいね、

別名保存でないと、
意味が　無いですよ。
_.

さすれば、

閲覧も、編集も、
叶うものと　思いますよ。
（Nouble） 2022/08/18(木) 16:08

コメント返信：