質問: 至急!! Excel VBA 関数 助けてください 氏名 商品名 価格 A 〇 300 A × 400 A △ 500
回答: 添付参照 D2に =A2&"-"&COUNTIF(A$2:A2,A2) といれ 下にオートフィル これで 氏名毎に連番が つきます。 そこで 添付中央の表の場合 B3に =IFERROR(INDEX(Sheet1!$B:$B,MATCH($A3&"-"&INT(COLUMN(B1)/2),Sheet1!$D:$D,0)),"") C3に =IFERROR(INDEX(Sheet1!$C:$C,MATCH($A3&"-"&INT(COLUMN(C1)/2),Sheet1!$D:$D,0)),"") B3:C3を 選択して 右にオートフィル B3:K3を 選択して下にオートフィル これで 中央の表になります。 ただ 私は 一番下の表の方が 見やすいかと この場合 C3に =IFERROR(INDEX(Sheet1!$B:$B,MATCH($A3&"-"&COLUMN(A1),Sheet1!$D:$D,0)),"") D3に =IFERROR(INDEX(Sheet1!$C:$C,MATCH($A3&"-"&COLUMN(A1),Sheet1!$D:$D,0)),"") C3:D3を 下にオートフィル C3:C6を 右にオートフィル これで 下の表になります。