|
こんにちは、ちんといいます。
>同一データの表示しないについて、大変参考になりました。
>しかし、問題が一つあり重複するものの集計が必要となります。製番とか作業コードが毎回必ずしも同じ種類でないので、ピポットは使えないのではないかと思います
VBAで作成するのであれば、
日報データの最終列に、ソート用の項目をVBAによりセットする。
FOR文 または、DO 〜 LOOP命令で、(先頭行から最終行まで)データを読み込み、各コードをソート用の列にセットします。
'**** ソート用のキーをセットする
FOR i = 1 TO 最終行
SHEET1.CELLS(i,ソート用の列位置).Value = FORMAT(SHEET1.CELLS(i,コード1の列位置).Value,"0000") & FORMAT(SHEET1.CELLS(i,コード2の列位置).Value,"0000") & ・・・
NEXT i
'**** ソートの実行
Selection.Sort Key1:=Range("ソート用の列"), ・・・
'**** 同一名称の消去
OLD_名称=""
FOR i = 1 TO 最終行
IF OLD_名称 = SHEET1.CELLS(i,名称の位置).Value THEN
SHEET1.CELLS(i,名称の位置).Value = "" <--- 同じ名称は消す
ELSE
IF OLD_名称 = "" then
ELSE
OLD_名称 = SHEET1.CELLS(i,名称の位置).Value
一行下へ挿入の命令を実行。
合計の式を、入れる。
END IF
END IF
NEXT i
以上、試してませんが、参考までに・・・
|
|