エクセルのデータ配置を変えたい

質問

質問をお願いします。

エクセルで作成したデータの配置を添付のように変更したいのですがどのような方法があるのでしょうか。

具体的には、横に展開した上の表を下の表のように、Ａ列のコード毎に、Ａ・Ｂ・Ｃそれぞれの数値を表示したいことと、ブランクの部分は表示させない、というようにしたいのです。
（もちろん別のシートにデータを作成して構いません）

データ量は、縦・横とも相当あるので、とても手作業ではできません。

何か良い方法があれば教えて下さい。

回答No.2

tom04 · ベストアンサー

こんばんは！
VBAでの一例です。

Sheet1のデータをSheet2に表示させるようにしてみました。
↓の画像のようにSheet1のデータは2行目からあるとします。

画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
With ws.Cells(1, 1)
.Value = "コード番号"
.Offset(, 1) = "項目"
.Offset(, 2) = "データ"
End With
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(i, j) <> "" Then
With ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = Cells(i, 1)
.Offset(, 1) = Cells(1, j)
.Offset(, 2) = Cells(i, j)
End With
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　Sheet2の1行目に表示される項目は勝手に入れていますので、
コード内で実際の項目名に変更してみてください。

以上、参考になれば良いのですが・・・m(_ _)m

お礼

ご回答いただき、ありがとうございます。

わかりやすくご説明いただいた為、うまく変換できました。

本当にありがとうございました。

回答No.4

ToughBoy

ＮＯ３です。画像の貼り付けが良くないのでもう一度します。

初歩のEXCLEでなんとか出来ました。
１．元の表にＡ列をコピーし　Ｃ列（Ｂの数列の左）Ｅ列（Ｃの数列の左）にコピーした列を挿入する。
　　Ａ列：１００１，１００２，１００３　Ｂ列　Ａの数値　
　　Ｃ列：１００１，１００２，１００３　Ｄ列：Ｂの数値　
　　Ｅ列：１００１，１００２，１００３　Ｆ列：Ｃの数値　
２．Ｂ列に空白列を挿入　Ｂ２にＡを入力し　したまでコピー、Ｅ列に空白列を挿入　Ｅ２にＢを入力し　したまでコピー　　Ｈ列に空白列を挿入　Ｈ２にＣを入力し　したまでコピー　　
　　Ａ列：１００１，１００２，１００３　Ｂ列：Ａ，Ａ，Ａ　Ｃ列　Ａの数値
　　Ｄ列：１００１，１００２，１００３　Ｅ列：Ｂ、Ｂ、Ｂ　Ｆ列：Ｂの数値
　　Ｇ列：１００１，１００２，１００３　Ｈ列：Ｃ、Ｃ、Ｃ　I列：Ｃの数値
３．数値の入っている範囲で3列すつをコピーし　Ａ列からＣ列に　まとめる
　　Ａ列：１００１，１００２，１００３　Ｂ列：Ａ，Ａ，Ａ　Ｃ列　Ａの数値の下に
　　Ｄ列：１００１，１００２，１００３　Ｅ列：Ｂ、Ｂ、Ｂ　Ｆ列：Ｂの数値を貼り付ける
　　さらに下に
　　Ｇ列：１００１，１００２，１００３　Ｈ列：Ｃ、Ｃ、Ｃ　I列：Ｃの数値

４．Ａ列に列を挿入し　Ａ２に　=IF(D2=0,0,B2)を入力　し　したまでコピー
５．数値の範囲を指定し（例えばＡ２からＣ１６）
データー　並び替え　最優先されるキー　列Ａ　２番目に優先されるキー列Ｃ　で　ＯＫ　（並び替えをします）
６．この場合は　データーが無いものが上に固まりますから　その部分をカットしてください。

回答No.3

ToughBoy

初歩のEXCLEでなんとか出来ました。
１．元の表にＡ列をコピーし　Ｃ列（Ｂの数列の左）Ｅ列（Ｃの数列の左）にコピーした列を挿入する。
　　Ａ列：１００１，１００２，１００３　Ｂ列　Ａの数値　
　　Ｃ列：１００１，１００２，１００３　Ｄ列：Ｂの数値　
　　Ｅ列：１００１，１００２，１００３　Ｆ列：Ｃの数値　
２．Ｂ列に空白列を挿入　Ｂ２にＡを入力し　したまでコピー、Ｅ列に空白列を挿入　Ｅ２にＢを入力し　したまでコピー　　Ｈ列に空白列を挿入　Ｈ２にＣを入力し　したまでコピー　　
　　Ａ列：１００１，１００２，１００３　Ｂ列：Ａ，Ａ，Ａ　Ｃ列　Ａの数値
　　Ｄ列：１００１，１００２，１００３　Ｅ列：Ｂ、Ｂ、Ｂ　Ｆ列：Ｂの数値
　　Ｇ列：１００１，１００２，１００３　Ｈ列：Ｃ、Ｃ、Ｃ　I列：Ｃの数値
３．数値の入っている範囲で3列すつをコピーし　Ａ列からＣ列に　まとめる
　　Ａ列：１００１，１００２，１００３　Ｂ列：Ａ，Ａ，Ａ　Ｃ列　Ａの数値の下に
　　Ｄ列：１００１，１００２，１００３　Ｅ列：Ｂ、Ｂ、Ｂ　Ｆ列：Ｂの数値を貼り付ける
　　さらに下に
　　Ｇ列：１００１，１００２，１００３　Ｈ列：Ｃ、Ｃ、Ｃ　I列：Ｃの数値

４．Ａ列に列を挿入し　Ａ２に　=IF(D2=0,0,B2)を入力　し　したまでコピー
５．数値の範囲を指定し（例えばＡ２からＣ１６）
データー　並び替え　最優先されるキー　列Ａ　２番目に優先されるキー列Ｃ　で　ＯＫ　（並び替えをします）
６．この場合は　データーが無いものが上に固まりますから　その部分をカットしてください。

回答No.1

keithin

シート１のＡ１から始まる元の表を用意する。
つまり１行目とＡ列はタイトルで，表の中身はＢ２から入り始めて暫定的にＤ５まであるとする。

シート２のＡ２に
=IF(ROW(A1)>COUNTA(Sheet1!$B$2:$D$5),"",INDIRECT("Sheet1!"&TEXT(INT(SMALL(IF(Sheet1!B$2:$D$5<>"",ROW(Sheet1!$B$2:$D$5)*100+COLUMN(Sheet1!$B$2:$D$5)),ROW(A1))/100),"!R0!C1"),FALSE))
と記入してコントロールキーとシフトキーを押しながらEnterで入力する
下向けにコピーする

シート２のＢ２に
=IF(ROW(B1)>COUNTA(Sheet1!$B$2:$D$5),"",INDIRECT("Sheet1!"&TEXT(MOD(SMALL(IF(Sheet1!$B$2:$D$5<>"",ROW(Sheet1!$B$2:$D$5)*100+COLUMN(Sheet1!$B$2:$D$5)),ROW(B1)),100),"!R1!C00"),FALSE))
と記入してコントロールキーとシフトキーを押しながらEnterで入力する
下向けにコピーする

シート２のＣ２に
=IF(ROW(C1)>COUNTA(Sheet1!B$2:$D$5),"",INDIRECT("Sheet1!"&TEXT(SMALL(IF(Sheet1!$B$2:$D$5<>"",ROW(Sheet1!$B$2:$D$5)*100+COLUMN(Sheet1!$B$2:$D$5)),ROW(C1)),"!R0!C00"),FALSE))
と記入してコントロールキーとシフトキーを押しながらEnterで入力する
下向けにコピーする