エクセルデータの縦横変換について

エクセルの横に並んだデータ複数行分を
下の図のように変換する効率のよい方法はありますでしょうか？
ご存知の方がいらっしゃれば教えてください。

No.3 ベストアンサー 回答者： tom04 回答日時： 2014/03/17 20:59

こんばんは！

VBAでの一例です。

アップされている画像で3行目以降がSheet1にあり、Sheet2に表示するようにしてみました。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面（カーソルが点滅しているところ）に
↓のコードをコピー＆ペースト　→　Excel画面に戻り、マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, j As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2") '←Sheet2は実際のSheet名に！
wS.Range("A:B").ClearContents
With Worksheets("Sheet1") '←Sheet1も実際のSheet名に！
For i = 3 To .Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To .Cells(i, Columns.Count).End(xlToLeft).Column
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
wS.Cells(cnt, "B") = .Cells(i, j)
Next j
Next i
End With
End Sub 'この行まで

※　関数でないので、Sheet1のデータ変更があるたびにマクロを実行する必要があります。m(_ _)m

この回答へのお礼

非常にシンプルでわかりやすくしていただきありがとうございました。
おかげ様でうまくいきました。

お礼日時：2014/03/18 14:06

No.2 回答者： mike_g 回答日時： 2014/03/17 17:36

図では、各県とも１～５町までと揃っているけど、後になって「アレは例示したまでで、実際は３町までとか６町まであったりする、つまりバラバラ」などと言い出さないでしょうね。

No.1 回答者： minis8566 回答日時： 2014/03/17 01:05

表の縦横を入れ替えて、列を切り取って纏めればいいってことでしょうか。

こんなかんじに。
http://kokoro.kir.jp/excel/line-row-replace.html

この回答へのお礼

行と列の入れ替え＋それを２列にまとめなければならない作業ですが、
このやり方も参考にさせていただきました。
ありがとうございます。

お礼日時：2014/03/18 14:05