イケてないExcelファイルをきれいにするマクロ

昨日、ブログネタ用にネットからExcelファイルを落としたら、かなりイケてない形式でした。
こういった場合にもマクロは便利です。

使いにくいExcelファイル

今回落としたのは、こういう形式のファイルです。

中小企業白書から落としました。

時系列（1955年〜2009年）のデータなのに、途中で折り返しています。
これだと計算をしたり、グラフにしたりする際に不便です。
まあ、役所関係のファイルはこういうのが多いですね^_^;
（私が元いたところ（統計局）もやはり加工しにくいデータ形式が多かったですし、今もそうです。）

縦に長く、同じ種類のものは同じ列に入っている形式だと使いやすくなります。

マクロで整理

こういった場合にもマクロをささっと書いて整理できます。
今回のマクロはこんな感じです。
繰り返しこのマクロを使うか、一時的に使うかで書き方が多少変わってきますが、今回は一時的に使うことを考えて書きました。
ーーーここからーーー

Sub clean()

End Sub
ーーーここまでーーー

①　まず、データをコピーすることを考えます。
折り返されている部分を上のデータにくっつけていけばいいわけです。
本来は、移動（切り取り）でやるべきでしょうが、元のデータを崩さないようにコピーを使います。

セルB8からK11の範囲をコピーして、セルL3に貼り付け、同様にすべてのデータを貼り付けていけば、データがきれいになります。

マクロを書くと、
Range(“b8″,”k11”).Copy Range(“l3”)
となります。

②全体を見てみると、このコピーを5回繰り返せばいいことがわかります。
手でやってもいいのですが、めんどくさいですし、何よりも悔しいです^_^;

繰り返し部分をマクロで書いていきます。
繰り返しを考えるときは、データに何か法則がないかを探してみましょう。
この場合、8行目から、5行ごとにデータがあります。

「8行目から28行目まで、5行おきに繰り返す」という指示をマクロで書けばいいのです。
マクロで書くと

Next
となります。
Stepというのが、「5つおきに」という意味です。

③①と②を組み合わせて書き直すとこうなります。
貼り付ける位置は、一番右ですのでMax_colで数えて、自動的に把握できるようにします。
Max_col = Cells(3, Columns.Count).End(xlToLeft).Column
は、一番右の列という意味です。