CSVファイルを自動で加工したいのです

質問

お世話になります。データをダウンロードすると、添付ファイルの水色部分のようになります。
そのCSVファイルを元に、売り上げ明細（納品書）を作成する際、今までは、データをダウンロード後、エクセルに落とし、1行のデータにするために、
1.必要な項目列（添付ファイルの水色の部分）（型番2、商品名2、数量2、単価2、型番3、商品名3、数量3、単価3・・・・単価5）を挿入します。
2.水色の部分を挿入した項目列にコピー＆ペーストします。
3.数量*単価を計算します。（単価の隣に列を挿入し計算し、その後、値でコピーしています）
4.アクセスに取り込み、納品書をプリンターします。

以上が簡単な手作業の手順です。

当方、BV,マクロ記述の知識はありません。
毎回のダウンロードは、同じ項目、順番です。

アクセスに取り組む際は、『1行』でないといけないという固定観念がありますが、
当方のスキルがもっとあれば、CSVファイルをアクセスに直接取り込める方法があるのでしょうか？
できるだけ作業を減らしたいという考えからの、おもいつき程度のことです。しかしながら、元のCSVファイルは、1発注1行形式のデータ形式でないため、やはり無理なのか？
とも思います。
作業1から3までを自動でできたら、どんなに効率が良いかと何度もトライしましたが、出来ずに
ずっと悩んでおります。

どなたかの確かなスキル（BV記述例）、アドバイスをお願い致したく、投稿いたしました。
よろしくお願い致します。

回答No.2

kkkkkm · ベストアンサー

> 水色の部分が、決まった行数でもないし、決まったセル位置でもない

最終行はたとえばE列なら
Cells(Rows.Count, "E").End(xlUp).Row
で取得できます。
決まったセル位置でもないというのが良くわかりませんが
水色以外の部分を上のデータと同じにするのなら
E列が水色の部分に含まれる、E列には必要なデータ以外はない
画像の左端上がA1であり、1行目には必要なデータ以外はない
画像で何もデータが見えない所にはデータがない
という条件で
Sub Example()
Dim c As Range
Dim MyLastRow As Long, MyLastColumn As Long

MyLastRow = Cells(Rows.Count, "E").End(xlUp).Row
MyLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
For Each c In Range(Cells(2, "A"), Cells(MyLastRow, MyLastColumn))
If c.Value = "" Then
c.Value = c.Offset(-1, 0).Value
End If
Next
End Sub

回答No.1

kkkkkm

黄色の部分が既にあるファイルでそこに水色の部分をコピー＆ペーストしたということですか?それで、氏名とか他の部分は一行目と同じデータにしたいということでしょうか
でしたら単純に氏名の所がC列なら3行目に=C2とするとかになりますが・・・

また、CSVのデータに氏名がないのにどうしてここにコピー＆ペーストすると決定できるのでしょう?

お礼

お忙しいところお知恵を貸してくださり、ありがとうございました。
少しずつですが、考えをまとめながら効率化を進めています。

補足

お世話になります。複数個の注文の場合、水色の部分のように、下段に出されます。アクセスに移すために１行形式データにするため上記のような手順をしています。書き忘れましたが、数量、単価の次に列を設け、商品ごとの金額をだしています。

１行データとしては、（型番、商品名、数量、単価、金額）、複数の注文の場合は（水色の部分）、（型番2、商品名2、数量2、単価2、金額2）今のところ金額5までというデータ項目です。

なんとか自力で、項目を増やすところまではマクロが記述できました。
その後の下段にはきだされる水色の部分が、決まった行数でもないし、決まったセル位置でもないので、物凄くハードルが高く、悩みのたねです。
そしてその後は、自動が無理ならば、手動計算で、数量*単価を出せばいいのかとも思っております。
よろしくお願い致します。