エクセルでお助けをお願いします

質問

エクセルの機能でSheet1からSheet2への形に出来る方法がありましたらお願いいたします。

　　　　　Ａ列　　　Ｂ列　　　Ｃ列
　１　　　コード　　種類　　　個数
　２　　　　3205　　パン　　　５４
　３　　　　1205　　ジャム　　　９
　４　　　　7741　　みかん　　１６
　５　　　　2240　　人参　　　５０
　６　　　　2240　　みかん　　１０
　７　　　　2240　　いも　　　４１
　８　　　　1133　　なす　　　３０
　９　　　　3655　　米　　　　３２
　１０　　　3655　　砂糖　　　４５

Sheet1

　　　　　Ａ列　　　Ｂ列　　　Ｃ列　　　Ｄ列　　　Ｅ列　　　Ｆ列　　　Ｇ列　　　Ｈ列　　　Ｉ列
　１　　　コード　　種類　　　個数　　　コード　　種類　　　個数　　　コード　　種類　　　個数
　２　　　　3205　　パン　　　５４　　　　2240　　みかん　　１０　　　　2240　　いも　　　４１
　３　　　　1205　　ジャム　　　９　　　　3655　　砂糖　　　４５
　４　　　　7741　　みかん　　１６
　５　　　　2240　　人参　　　５０
　６　　　　1133　　なす　　　３０
　７　　　　3655　　米　　　　３２

Sheet2

Sheet1のＡ列のコードが重複する場合その行のＡ列、Ｂ列、Ｃ列の値をSheet2のＤ列、Ｅ列、Ｆ列さらにＧ列、Ｈ列、Ｉ列へ記入します。

Sheet1　は実際６００行から９００行くらいあります。

回答No.3

saburo0 · ベストアンサー

＃２です。
すいません、先ほどの式だと、データが10個まで（質問の内容）しか対応できませんでした。

訂正　(4)の式
　=INDEX(Sheet1!$A:$C,MATCH(TEXT(INT((COLUMN()+2)/3),"00000")&TEXT(ROW()-1,"00000"),Sheet1!$E:$E,0),MOD(COLUMN()+2,3)+1)

ご対応お願いいたします。

お礼

まさに内容にそったお答え本当にありがとうございます。
昨日からの苦悩から開放されました。

回答No.2

saburo0

(1)Sheet1のD2セルへ下記を入力
　=TEXT(COUNTIF(A$2:A2,A2),"00000")
(2)Sheet1のE2セルへ下記を入力
　=D2&TEXT(COUNTIF(D$2:D2,D2),"00000")
(3) (1)と(2)の式を下へデータがある行（1000行位？）まで下へコピー

(4)Sheet2のA2セルへ下記を入力
　=INDEX(Sheet1!$A$1:$C$10,MATCH(TEXT(INT((COLUMN()+2)/3),"00000")&TEXT(ROW()-1,"00000"),Sheet1!$E:$E,0),MOD(COLUMN()+2,3)+1)
(5) (4)の式を下及び右へ、データが全て表示される箇所までコピー

ではいかがでしょうか。

回答No.1

221west

こんな感じではダメでしょうか？

（１）シート１を、Ａ列の順番に並べ替える。

（２）Ａ列とＢ列の間に、新しい列を設ける（「新Ｂ列」とします）。

（３）新Ｂ列の内容は、以下の通りにする。
B1は適当な項目名（例えば「枝番」など）
B2=1
B3=if(A3=A2,B2+1,1)
B4=if(A4=A3,B3+1,1)
B5=if(A5=A4,B4+1,1)
以下同様

（４）新Ｂ列の中身をコピーして、そのまま値の形式で貼り付ける。
※並び替えをしても、値が変わらない様にするためです。

（５）新Ｂ列の中身の順番に並び替えて、以下の様にシート２に貼り付ける。
新Ｂ列の中身が1の物を、シート２のＡ～Ｃ列に貼り付ける。
新Ｂ列の中身が2の物を、シート２のＤ～Ｆ列に貼り付ける。
以下同様

お礼

早速、適切なご回答感謝いたします。
眼からウロコとはこの事とだと思いました。　　本当です。
ありがとうございます。