Excelで大量のデータを規則的に改列したいです

Excel初心者です。
画像のように「福岡、大分…」と項目が200ほどあるとして、そのしたにデータ(数値)が並んでいるとします。
「8行目以降の数値を隣の列の2行目〜に移動させる」という操作を200項目分行うために何かいい方法があれば教えていただきたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/01/30 15:53

こんにちは！

関数でもできると思いますが、
＞項目が200ほどあるとして
というコトですので、手っ取り早くVBAでの一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim j As Long, lastRow As Long
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
lastRow = Cells(Rows.Count, j).End(xlUp).Row
If lastRow > 7 Then
Range(Cells(8, j), Cells(lastRow, j)).Cut Cells(2, j + 1)
End If
Next j
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございました！
助かります！

お礼日時：2015/02/03 15:50