このEXCELマクロのコードを、教えて下さい。

質問

恐れ入ります。初心者です。WinXP、Excel 2002を使用。VBAコードは読めません。

１、フォルダ名（入力用フォルダ1）に
R02061701.CSV　　R02061702.CSV　～R020617012.CSV
の下2桁のみ昇順になってるファイル12個があります。

各ファイルの最後尾（全ファイル100行以内）の行から「3行目データだけ」かつ「F列以降」を
列方向昇順に並べ変えて、
ブック名（入力用ブック1.xls）のB3、B6、…B36へと2つ置きに12個を表示させる。

２、次に、フォルダ名（入力用フォルダ2）にも
R03062701.CSV～R03062712.CSV
の下2桁のみ昇順になってるファイル12個があります。

１と同様に
ブック名（入力用ブック1.xls）のB4、B7、…B37へと2つ置きに表示させる。

３、次に、フォルダ名（入力用フォルダ3）にも
　R08064701.CSV～R08064712.CSV
　の下2桁のみ昇順になってるファイル12個があります。

　１と同様に
　ブック名（入力用ブック1.xls）のB5、B8、…B38へと2つ置きに表示させる。

結果、B3～B38まで全部うまります。
　A　　　B　　　　C　　　D　　　　E　　　F　　　　G　　　E　　・・・・　
1
2　結果　１　　　 ２　　 ３　　　　４　　　５　　　　６　　 ７　　・・・・
3　1
4　1
5　1
6　2
7　2
8　2
9　3
.　.
.　.
以上ですが、この内容でコード作成に無理な部分がおありでしたら、おっしゃってください。
　修正は致します。

回答No.2

imogasi · ベストアンサー

学校の宿題か何かの丸投げではないの。
>VBAコードは読めません。
こんな方にＶＢＡの回答を書いてどうなるの。
徒労感あり。内容も条件が複雑なだけで、回答者には新しい勉強箇所がないように思う。
ＶＢＡを少なくするため、ＶＢＡ作業と手作業を組みあわせました。
３シートならそのほうが良いと思い。
ーーー
下記の第２行目には、本番のＣＳＶのファイル名を１２個カンマで区切り、それぞれダブルクオートで囲んで、１行に連ねてください。
test01", "test02", "test03"は私のテスト例ですから、削除・消すこと。
ＶＢＥ画面の標準モジュールに貼り付け、Ｆ５（実行）キー
-----
Sub test01()
fn = Array("test01", "test02", "test03") 'ファイル名指定
K = 1
'---レコード数カウントフェーズ
For i = 0 To UBound(fn) 'ファイル数だけ繰り返し
fn(i) = fn(i) & ".csv"
Open fn(i) For Input As #1
n = 0
While Not EOF(1)
Line Input #1, a '１レコードを読む
n = n + 1
Wend
Close #1
MsgBox n
'------レコード数ー１２を捉えるフェーズ
Open fn(i) For Input As #1
m = 0
While m < n - 12 '最後から１２番の直前まで読み飛ばし
Line Input #1, a
m = m + 1
Wend
'---最後から１２番目を捉える
Line Input #1, b
x = Split(b, ",") 'カンマで配列的に分割
'----シート各列にデータをセットするフェーズ
For j = 0 To UBound(x)
Cells(K, j + 1) = x(j)
Next j
Close #1
'-----シートの次の行へ
K = K + 1
Next i
End Sub
上記でうまくいかないときは、私の回答をＡｂａｎｄｏｎしてください。
（１）入力用フォルダ1に対する、１２行１シートができる。Ｘシートとする。
（２）入力用フォルダ2にも同じ作業をする。ファイル名はもちろん変えて実行すること。Ｙシートとする。
（３）入力用フォルダ3にも同じ作業をする。ファイル名はもちろん変えて実行すること。Zシートとする。
--
Ｘシートのある空き列に３，６，９・・３６の連番を振る
Ｙシートのある空き列に４，７，１０・・３７の連番を振る
Ｚシートのある空き列に５，８，１１・・３８の連番を振る
ーー
シートＸの最後の次にＹシートのデータを貼り付ける。
上記貼り付け後のＸシートのデータ最終行の次にＺシートのデータ１２行を貼り付け。
ーー
飛び飛び番号を振った列でデータ全体３６行をソートする

補足

誠にどうも有難うございます。
私のやり方が間違ってるかもしれませんが、8行目の　n = 0
で「実行時エラー53；ファイルが見つかりません。」となりました。

回答No.3

NCU

どこがわからないのかを具体的に記載して下さい。

補足

１、NO.2様のコードで恐縮ですが、現在のところ、7行目（8行目は間違え）の
Open fn(i) For Input As #1
で「実行時エラー53；ファイルが見つかりません。」となりました。
「入力用フォルダ1～3」と同じフォルダに、マクロのEXCEL「入力用ブック1.xls」を置くのかが解りません。
２、「入力用ブック1.xls」には、セルB3から2つ置きに下へ貼り付けるより、とりあえず、順番に1～12、13～24、25～36、にしたほうが良いかと思ってます。
よろしくお願い致します。

よろしくお願い致します。

回答No.1

finneganswake

質問というか、マクロを作って欲しいってことなの？
それはこの場では駄目でしょう。
他のサイトで探すべき。もしくはお金を払って、誰かに依頼すべき。

できるかどうかを聞いてるならできるよ。

お礼

ご回答どうも有難うございます。
私の作業内容は、お解かりだと思いますが、おもにxlsファイル(csv含む)の一部の行・列の数値を昇順にし、別のEXCELブックの希望する行・列に貼り付けるだけです。
計算はしません。
もし、当作業にあった、ソフトをご存知でしたら、お教え下さいませ。
また、このような言語を日本語に訳すソフトをご存知でしたら併せてお願い致します。