複数EXCELのセルデータを違うセルに移したい

質問

昨日、複数のエクセルのファイルを1つのファイルの1枚のシートにするやり方を質問させていただきました。csvファイルでしたのでできなかったことがわかりました。お答えいただいた方本当にありがとうございました。助かりました。教えてgooのやり方がわからずコメントを書けませんでしたのでここに書かせていただきます。

参考：http://okwave.jp/qa/q7735457.html

さらに質問なのですがどなたかお願いいたします。

今、一枚のシートに日付ごとに項目が入っているのですが、項目の前の列にそれぞれ日付をつけるやり方があれば教えていただければと思います(下図のようになっています）。できればいらない部分は排除したいです。

図としましては

　　　　　　 B列　 C列 （数字は行の番号です。）
　　　　　 3　　　　　 日付
　　　　　 4　　 いらない部分
　　　 　5 　　※　 項目
　　　　 　6 　 ※ 　 項目
　　　　　 7　　 日付

のような形になっています。

日付はC列の3行目からランダムに入っています。次の日付までB列の前に先の日付を入れたいです。（4,5の※部分にC3の日付を入れたいです）。あと出来ればいらない部分は消したいです。

または複数のEXCEL(.CSV)ファイルから1つのファイルの1枚のシートにする際にそれを行えたら嬉しいです。

複数のファイルの場合は

　 B列　 C列　　　　　　　　　（数字は行の番号です。）
　 3　　　 日付※
4　　 いらない部分
5 　　 ※ 項目
　　　　　　　 ：

の形になっていてC列の3行目に日付が入っているのとC列4行目にいらない部分が入っているのはどのファイルも変わりありません。

わかる方がいらっしゃいましたらぜひともよろしくお願いします。また、CSVファイルになっていますのでお願いします。（図がへなへなになってしまって申し訳ありません）

回答No.1

keithin · ベストアンサー

元のＣＳＶファイルの１つをふつーにエクセルで開いて見てみると、必ず
○Ｃ３セルに「日付」のデータが記入されている
○Ｃ４セルのデータは要らない
○Ｃ５セル以下の「不定数」のセルが必要
ということですね。

ついでに
○コピーしたいのはＣ３以下だけ。それ以外のＡ列やＢ列、Ｄ列以右は全く不要
という事で間違いないのですね。

それからご相談に書かれていませんが、エクセルに集約したあとは、Ｃ列のグループ先頭の日付のデータは通常は不要なので、
●Ｃ５以下の必要なデータだけをＣ列にコピーする
●その隣のＢ列にＣ３の日付をずらり転記する
事にします。

オマケで、前回回答のマクロは各ＣＳＶの先頭行にタイトル行が記入してある前提で書いていましたので、それもやめにします。

sub macro2()
　dim myPath as string
　dim myFile as string
　worksheets.add before:=worksheets(1)

’さっき調べたパスを下記に記入する。最後の￥を消してしまわないよう注意する
　mypath = "c:\Users\<UserName>\Documents\元データ" & "\"

　myfile = dir(mypath & "*.csv")
　do until myfile = ""
　　workbooks.open mypath & myfile
　　with thisworkbook.worksheets(1)
　　　range("C5:C" & range("C65536").end(xlup).row).copy .range("C65536").end(xlup).offset(1)
　　　range("C3").copy .range(.range("B65536").end(xlup).offset(1), .range("C65536").end(xlup).offset(0, -1))
　　end with
　　workbooks(myfile).close false
　　myfile = dir()
　loop

end sub

お礼

keithinさん＞ありがとうございます。無事できるようになりました。今まで何日もかかっていた無駄な作業が一瞬で出来て本当にうれしく思います。本当に感謝です。ありがとうございます。

補足

keithinさん＞こんな動物に何度も本当にありがとうございます。感謝の限りです。
　申し訳ありません。また説明の仕方がへたくそでして間違えている部分がありました。

○コピーしたいのはＣ３以下だけ。それ以外のＡ列やＢ列、Ｄ列以右は全く不要

のところですが列はCからM列まででした。説明不足で申し訳ありません。勉強になります。

●Ｃ５以下の必要なデータだけをＣ列にコピーする
●その隣のＢ列にＣ３の日付をずらり転記する

のところはkeithinさんが言われてる通りにしたいです。本当にありがとうございます。