＜エクセル－表＞表の縦項目と横項目を一行置きで入れ替える

質問

エクセル表の縦と横の項目を入れ替えたいのですが、
全てそっくり入れ替えるのではなく、縦の項目を一行
置きに、残したまま、入れ替えを行いたいと思っています。
何か良い方法をご存知でしたら、教えて頂けないでしょうか？

具体的には、縦項目が3つ、合計│男│女│とあり、それぞれ
上段が件数、下段が（％）という2段構造になっており、横項目は
Ａ│Ｂ│Ｃ│と並んでいます。
（％）は、そのまま縦項目に残したまま、Ａ│Ｂ│Ｃ│それぞれの下に
（％）が来るように並べ替えを行いたいのですが、
できる限り作業手順を簡素化したいと思っています。

【元の表】
横項目→Ａ│Ｂ│Ｃ│
縦項目→合計│（％）│男│（％）│女│（％）│

【並べ替え後】
横項目→合計│男│女│
縦項目→Ａ│（％）│Ｂ│（％）│Ｃ│（％）│

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

回答No.1

noname#70958

●Ａ案：数式で

元の表が（項目列・項目行を含めて）Sheet1!A1以下にあるとして…

１．新規シートのB2セルを
　　　=OFFSET(Sheet1!$A$1,COLUMN()*2-3+MOD(ROW(),2),INT(ROW()/2))
　　として右方・下方にフィル

２．コピー　⇒　[形式を選択して貼り付け]　⇒　[値]　⇒　[OK]

※項目列・項目行は手打ち
----------------------------------------------------------------
●Ｂ案：フィルタと並べ替えで

０．元の表の項目行の上に１行挿入して連番を振る

１．オートフィルタで元の表の（％）の行【以外】を表示

２．１を項目行・連番行を含めてコピー　
　　⇒　新規シートで[形式選択して貼り付け]　⇒　[行列を入れ替える]　⇒　[OK]

３．オートフィルタで元の表の（％）の行【のみ】を表示

４．３を項目行・連番行を含めてコピー
　　⇒　２の直下に[形式選択して貼り付け]　⇒　[行列を入れ替える]　⇒　[OK]

５．４を連番列を基準に並べ替え

６．項目行・項目列を整形

Excel2003で挙動確認済。以上ご参考まで。