はじめまして。
画像のようなデータが毎日ｃｓｖで入ってきます。
これを元に、
1：店名ごとの、原価金額の合計
2：品名ごとの、数量の合計
を、ボタンひとつで集計できるようにしたいのですが、
分からず悪戦苦闘しています。
（データは多い時には500行以上になります。）
【現状】
csvデータが、ヘッダー部分(レコード区分Ａ)と
明細部分(レコード区分Ｅ)に分かれている状態で入ってくる。
1行目および2行目の項目は、毎日事前に作ってある原紙よりコピー＆貼り付けをし、
フィルタやピボットテーブルを使い集計をとっている。
1の場合
オートフィルタ機能を使い、
レコード区分“Ｅ”の、原価金額の合計を出している。
2の場合
すべてを選択して、ピボットテーブル機能を使い、
商品ごとの数量合計は出しているが、
レコード区分“Ａ”の部分を含まれるため、
集計後に、コピー＆貼り付けを行い、店名の部分を削除している。
また、毎日の注文数の累計を一ヶ月ごとに集計する必要があり、
毎日の分は別シートに順に貼り付けて、特定の日でピボットテーブルで集計している。
---------
※問題点
明細部分に、店舗の情報がないため、
店舗ごとの原価金額の累計がピボットテーブルでは出来ず、
商品ピッキングに使うＰＤＦデータを元に手計算。
(レコード区分Ａで出した、原価金額の合計と照合はしています。)
店舗ごとの売上を記帳するのも手書きのため、
なんとかこのデータを活用できないか、と考えています。
分かりにくい文章で申し訳ないのですが、
ヒントやアドバイスをいただければ、と思い、スペースをお借りしました。
よろしくお願いいたします。
ちなみに、エクセルのバージョンは2000です、、、。
画像のようなデータが毎日ｃｓｖで入ってきます。
これを元に、
1：店名ごとの、原価金額の合計
2：品名ごとの、数量の合計
を、ボタンひとつで集計できるようにしたいのですが、
分からず悪戦苦闘しています。
（データは多い時には500行以上になります。）
【現状】
csvデータが、ヘッダー部分(レコード区分Ａ)と
明細部分(レコード区分Ｅ)に分かれている状態で入ってくる。
1行目および2行目の項目は、毎日事前に作ってある原紙よりコピー＆貼り付けをし、
フィルタやピボットテーブルを使い集計をとっている。
1の場合
オートフィルタ機能を使い、
レコード区分“Ｅ”の、原価金額の合計を出している。
2の場合
すべてを選択して、ピボットテーブル機能を使い、
商品ごとの数量合計は出しているが、
レコード区分“Ａ”の部分を含まれるため、
集計後に、コピー＆貼り付けを行い、店名の部分を削除している。
また、毎日の注文数の累計を一ヶ月ごとに集計する必要があり、
毎日の分は別シートに順に貼り付けて、特定の日でピボットテーブルで集計している。
---------
※問題点
明細部分に、店舗の情報がないため、
店舗ごとの原価金額の累計がピボットテーブルでは出来ず、
商品ピッキングに使うＰＤＦデータを元に手計算。
(レコード区分Ａで出した、原価金額の合計と照合はしています。)
店舗ごとの売上を記帳するのも手書きのため、
なんとかこのデータを活用できないか、と考えています。
分かりにくい文章で申し訳ないのですが、
ヒントやアドバイスをいただければ、と思い、スペースをお借りしました。
よろしくお願いいたします。
ちなみに、エクセルのバージョンは2000です、、、。
|
|
|
|
コメント(12)
書いてみた。
こんな流れでどうですか。
'---
Option Explicit
Sub データ再構築()
Dim wsS As Worksheet
Dim wsD As Worksheet
Dim rS As Long
Dim rD As Long
Dim i As Long
Set wsS = Worksheets("Sheet1")
Set wsD = Worksheets("Sheet2")
rD = 1
For rS = 3 To wsS.Cells(Rows.Count, 1).End(xlUp).Row
If wsS.Cells(rS, 1) = "A" Then
For i = 3 To 4
wsD.Cells(rD, i - 2) = wsS.Cells(rS, i)
Next
Else
If wsD.Cells(rD, 1) = "" Then
For i = 1 To 2
wsD.Cells(rD, i) = wsD.Cells(rD - 1, i)
Next
End If
For i = 3 To 4
wsD.Cells(rD, i) = wsS.Cells(rS, i)
Next
rD = rD + 1
End If
Next
End Sub
こんな流れでどうですか。
'---
Option Explicit
Sub データ再構築()
Dim wsS As Worksheet
Dim wsD As Worksheet
Dim rS As Long
Dim rD As Long
Dim i As Long
Set wsS = Worksheets("Sheet1")
Set wsD = Worksheets("Sheet2")
rD = 1
For rS = 3 To wsS.Cells(Rows.Count, 1).End(xlUp).Row
If wsS.Cells(rS, 1) = "A" Then
For i = 3 To 4
wsD.Cells(rD, i - 2) = wsS.Cells(rS, i)
Next
Else
If wsD.Cells(rD, 1) = "" Then
For i = 1 To 2
wsD.Cells(rD, i) = wsD.Cells(rD - 1, i)
Next
End If
For i = 3 To 4
wsD.Cells(rD, i) = wsS.Cells(rS, i)
Next
rD = rD + 1
End If
Next
End Sub
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
