めちゃくちゃ大きい表を渡されました。列番号はGZまで、208個のフィールド数です。
各フィールド名は長いし、同じ名前のものもあります。これをAccessにインポートしなければならない。
できれば、少しサイズダウンしたい、不要なフィールドは削除したいと思いました。画像はサンプルですよ。
![a0030830_21195856.gif]()
必要なフィールドはどれなのか?担当者に取捨選択してほしいと思ったんですね。横にだらだら~っとみていくより、縦に並べて、他のツールのフィールドとも比較したいな思いました。
なので、上記の表を下のように並べ直したいと思ったのです。
![a0030830_21274672.gif]()
が、フィールド名は選択して、行列を入れ替えて貼り付ければいいですが、ワークシートの列のアルファベットは取得できないですよね。
検索すると、下のページがヒットしました!きゃー、有難いですね。(人-)謝謝(-人)謝謝
エクセル関数で列の番号でなく、列のアルファベットを取得する方法
以下、やったことです。
まず、フィールド名の上に行を挿入します。
![a0030830_21283726.gif]()
そして、セルA1に数式を入力します。
=LEFT(ADDRESS(ROW(),COLUMN(),4,1),LEN(ADDRESS(ROW(),COLUMN(),4,1))-LEN(ROW()))
その数式をコピーして、GZ列まで貼り付けます。見事にアルファベットを取得してます!
![a0030830_21302127.gif]()
数式のままでは困るので、数式が入ったセルを選択してコピーして、値のみ貼り付けします。
![a0030830_2132631.gif]()
今度は、セルA1からセルGZ2までコピーして、
![a0030830_21332486.gif]()
新しいシートのセルA1で行列を入れ替えて貼り付けします。
![a0030830_21343161.gif]()
Accessにインポートできるデータにするには、他にもデータ型を揃えるなど、いろいろやらなければなりませんでしたが、どうにか目的のものができそうです。
各フィールド名は長いし、同じ名前のものもあります。これをAccessにインポートしなければならない。
できれば、少しサイズダウンしたい、不要なフィールドは削除したいと思いました。画像はサンプルですよ。

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

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

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

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

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

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

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