|
こんにちは。ExcelのVBAについてのご相談を申し上げます。
VBAに関しては勉強しているつもりでしたが、
今回は私の実力では完全にお手上げ状態でみなさんのお力をお貸しいただきたく投稿しました。
どうぞよろしくお願いいたします。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
【現状】
<フォルダ内のファイル名>
1.「DATA」というフォルタ内には約1000個の"abc_eea_0001234.csv"のようなcsvファイルが存在。
2.ファイル名の中のeeaは他にeea,eeb,eec,efa,efb,efcのようなファイルが同じフォルダ内に混在。
<ファイル内のデータ>
3.各ファイルの中身は、1aセル:日付、1bセル:eea(ファイル名の一部)、1cセル:0001234(ファイル名の一部)になっていて、11行から本データが入っている。
4.本データの形式は、11行から1000行まで並んでおり、A,B,Cまでのセルに保存されている。(下のような形式)
*************************************
A B C(セル)
*************************************
1 日付 eea 0001234
.....
8 --------------------------------
9 line num data
10 --------------------------------
11 101 111 8123
12 102 112 2145
13 103 113 142
.
.
.
513 602 12 51
*************************************
【やりたいこと】
1.「DATA」フォルダ内の全てのCSVファイル名を検索し、eea〜eecかeed〜eefを選択処理する。
2.eea〜eecの場合は、全てのcsvファイルに関して、1a:日付, 1b:eea, 1c:001234のデータと11行から1000行までのc列の縦のデータを取り出し、下のように横並びに並べ替える。
********************************************
A B C D E ...
********************************************
2 line: 101 102 ...
3 num: 111 112 ...
4 日付 eea 001234 data data ...
5 日付 eea 001235 data data ...
6 日付 eea 001236 data data ...
...
31 日付 eeb 000001 data data ...
32 日付 eeb 000002 data data ...
...
153 日付 eec 001923 data data ...
154 日付 eec 000002 data data ...
...
********************************************
3.上のようにまとめたファイルを"xxx.csv"というファイル名で保存する。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ここまでです。
大変厚かましい事で、恐縮ではございますが、
どうか、みなさんの助けをお願い申し上げたいのです。よろしくお願いします。
|
|