列のアルファベットを取得するには

2015年 09月 29日

めちゃくちゃ大きい表を渡されました。列番号はGZまで、208個のフィールド数です。
各フィールド名は長いし、同じ名前のものもあります。これをAccessにインポートしなければならない。
できれば、少しサイズダウンしたい、不要なフィールドは削除したいと思いました。画像はサンプルですよ。

必要なフィールドはどれなのか？担当者に取捨選択してほしいと思ったんですね。横にだらだら～っとみていくより、縦に並べて、他のツールのフィールドとも比較したいな思いました。
なので、上記の表を下のように並べ直したいと思ったのです。

が、フィールド名は選択して、行列を入れ替えて貼り付ければいいですが、ワークシートの列のアルファベットは取得できないですよね。
検索すると、下のページがヒットしました！きゃー、有難いですね。(人-)謝謝(-人)謝謝
エクセル関数で列の番号でなく、列のアルファベットを取得する方法

以下、やったことです。
まず、フィールド名の上に行を挿入します。

そして、セルA1に数式を入力します。
=LEFT(ADDRESS(ROW(),COLUMN(),4,1),LEN(ADDRESS(ROW(),COLUMN(),4,1))-LEN(ROW()))
その数式をコピーして、GZ列まで貼り付けます。見事にアルファベットを取得してます！

数式のままでは困るので、数式が入ったセルを選択してコピーして、値のみ貼り付けします。

今度は、セルA1からセルGZ2までコピーして、

新しいシートのセルA1で行列を入れ替えて貼り付けします。


Accessにインポートできるデータにするには、他にもデータ型を揃えるなど、いろいろやらなければなりませんでしたが、どうにか目的のものができそうです。