質問: excelで縦から横への並び替え ある集計結果を並び替えたいのですが、 001 aaa 1位 a店 2位 b店 002 bbb 1位 a店 2位 b店 3位 c店 という結果を 001 aaa 1位 a店 2位 b店 のように並び変えたいのですが、データが非常に多くて、手作業では 大変かと思うので、どなたか助けていただけないでしょうか? 宜しくお願いします。 aaa、bbbは品名で全ての店舗で販売してるわけではないです。 そのため、販売店舗(a店、b店・・・)が品によってバラバラです。
回答: こんなんでどうでしょう? データバックアップ後自己責任で確認してください。 sub macro1() dim i, hinmeino, runking hinmeino = 0 i = 1 do if cells(i, 1) <> "" then hinmeino = hinmeino + 1 runking = 1 i = i + 1 else runking = runking + 1 cells(hinmeino, 1 + runking * 2) = cells(i, 3) cells(hinmeino, 2 + runking * 2) = cells(i, 4) rows(i).delete end if loop until cells(i, 3) = "" end sub