教えて下さい！データの自動抽出反映をマクロで行いたいです。

Question

VBA勉強中のため、力を貸していただけますと助かります。

日次で吐き出されるcsvデータをexcelブックに読み込み、条件によって抽出、シートに反映させるまでを自動化したいのですが、どのようにコードを組めばよいのかご教授いただけないでしょうか。

元データ（csv）
A列             B列                  C列                 D列
日付            担当者名        案件名            価格

反映ブック（excel）
※ブックにはcsvの担当者名ごとにシートがあります。

A列             B列                  C列                 D列                E列                  F列
日付            案件名            価格                計上数【A】         計上数【P】          計上数【H】

反映させたいこと
① 元データの担当者名（B列）をexcelブックにある同じ担当者名シートに反映させたい
-1.反映させる内容は「日付」A列と「案件名」B列

②案件名の頭文字に【A】が付いているものは、D列の「計上数【A】」セルに「1」（数値）を入力させる。
同じように、案件名の頭文字に【P】が付いているものは、E列の「計上数【P】」セルに「1」（数値）を入力させる。
案件名の頭文字に【H】が付いているものは、F列の「計上数【H】」セルに「1」（数値）を入力させる。

※担当者は40名程度おり、日次のデータ数としまして200〜300ありますため、なんとか自動化したいです。

どうぞよろしくお願いいたします。

GooUserラック · Accepted Answer

自動追加バージョンです。
--------------------------------------------------------------------------------
Sub Sample()
Const 元データシート名 As String = "アポ一覧"
Dim 元行 As Long
Dim 先行 As Long
Dim ワークシート As Worksheet
Dim シート有 As Boolean
Dim シート名 As String
  Sheets(元データシート名).Select
  For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    シート有 = False
    シート名 = Cells(元行, 2).Value
    For Each ワークシート In Worksheets
      If ワークシート.Name = シート名 Then シート有 = True
    Next
    If シート有 = False Then
      Sheets("原本").Copy After:=Sheets(Sheets.Count)
      ActiveSheet.Name = シート名
      Sheets(元データシート名).Select
    End If
    With Sheets(シート名)
      先行 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(先行, 1).Value = Cells(元行, 1).Value
      .Cells(先行, 2).Value = Cells(元行, 3).Value
      .Cells(先行, 3).Value = Cells(元行, 4).Value
      Select Case Left(Cells(元行, 3).Value, 2)
        Case "【A"
          .Cells(先行, 4).Value = 1
        Case "【P"
          .Cells(先行, 5).Value = 1
        Case "【H"
          .Cells(先行, 6).Value = 1
      End Select
    End With
  Next
End Sub
--------------------------------------------------------------------------------

GooUserラック · Answer

「原本」というシートが有りますが、これは各担当シートの原本（レイアウトは出来ていてデータの無いもの）ならば、担当者のシートが存在しない場合は自動で追加する事ももちろん出来ます。必要ですか？

GooUserラック · Answer

エラー時に変数「元行」には何が入っていますか？
アポ一覧シートのその行のＢ列の値（担当者名）のシートは存在しますか？
存在しなければ、もちろんエラーします。

GooUserラック · Answer

もとの「For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row」が必要です。

出来れば聞くだけでなく、自分なりに何をやっているかを考えないと少しでも変わってしまうと判らなくて毎回聞かなければならなくなりますよ！
たとえば「Cells(Rows.Count, 1).End(xlUp).Row」何ですか？とかの質問ならば構いませんが、
「この行が不要ですか？」なんていうのを聞くと悲しくなってしまいます。

GooUserラック · Answer

No.4 の回答への補足コメントで｢デバッグ｣ボタンを押したらどの行が黄色くなりますか？
その黄色い行の変数にカーソルを持って行ったときに表示される値も提示してください。

GooUserラック · Answer

まさかとは思いますが、
シート名の「アポ一覧」ですが「一」は漢数字の「一」でしょうか？
「ー」のような長音記号ではないですよね？

GooUserラック · Answer

No.6 の修正

以下は不要です。
「For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row」も「For 元行 = 6 To Cells(Rows.Count, 1).End(xlUp).Row」に直して下さい。

※ アポ一覧シートと担当者名シートのレイアウトを見間違えていました。

GooUserラック · Answer

「For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row」も「For 元行 = 6 To Cells(Rows.Count, 1).End(xlUp).Row」に直して下さい。

また｢【｣と｢】｣は全角ですよね？

GooUserラック · Answer

あと１つ心配なのは、案件名の頭文字ですが｢【A】｣｢【P】｣｢【H】｣の3つですよね？
｢A｣｢P｣｢H｣ではないですよね？｢A｣｢P｣｢H｣ならば Select 文を以下のように直して下さい。
--------------------------------------------------------------------------------
Select Case Left(Cells(元行, 3).Value, 1)
Case "A"
.Cells(先行, 4).Value = 1
Case "P"
.Cells(先行, 5).Value = 1
Case "H"
.Cells(先行, 6).Value = 1
End Select
--------------------------------------------------------------------------------

GooUserラック · Answer

最後に書きましたが
「Const 元データシート名 As String = "元データ"」を
「Const 元データシート名 As String = "アポ一覧"」してもダメですか？

教えて下さい！データの自動抽出反映をマクロで行いたいです。

自動追加バージョンです。

「原本」というシートが有りますが、これは各担当シートの原本（レイアウトは出来ていてデータの無いもの）ならば、担当者のシートが存在しない場合は自動で追加する事ももちろん出来ます。

エラー時に変数「元行」には何が入っていますか？

もとの「For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row」が必要です。

No.4 の回答への補足コメントで｢デバッグ｣ボタンを押したらどの行が黄色くなりますか？

まさかとは思いますが、

No.6 の修正

「For 元行 = 2 To Cells(Rows.Count, 1).End(xlUp).Row」も「For 元行 = 6 To Cells(Rows.Count, 1).End(xlUp).Row」に直して下さい。

あと１つ心配なのは、案件名の頭文字ですが｢【A】｣｢【P】｣｢【H】｣の3つですよね？

最後に書きましたが

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング