|
「入力シート」と「集計シート」の2シートがあり、以下のマクロを実行すると、次のように集計シートへ転記されます。
再度、同じデータで実行すると集計シートのA7セルから同じデータが転記されてしまいますが、同一の「客NO」の場合、上書きするようにしたいのです。(再びA2セルから転記)
どのように書けばよいのでしょうか。
素人で恐縮ですが、どうぞよろしくお願いいたします。
(入力シート)
A B C D E
1 15 … 固定値(県NO)
2 宮城 … 固定値(県)
3 1 … 変動値(客NO)
4 タバコ屋 … 変動値(客)
(集計シート)
A B C D
1 県NO 県 客NO 客 … タイトル行
2 15 宮城 1 タバコ屋
3 15 宮城 1 タバコ屋
4 15 宮城 1 タバコ屋
5 15 宮城 1 タバコ屋
6 15 宮城 1 タバコ屋
7
Sub データ集計()
Worksheets("集計").Range("k1") = "=count(a:a)"
Worksheets("集計").Activate
n = Worksheets("集計").Range("k1")
Worksheets("集計").Activate
For i = 2 To 6
Worksheets("集計").Cells(n + i, 1) = Worksheets("入力").Cells(1, 3)
Worksheets("集計").Cells(n + i, 2) = Worksheets("入力").Cells(2, 3)
Worksheets("集計").Cells(n + i, 3) = Worksheets("入力").Cells(3, 3)
Worksheets("集計").Cells(n + i, 4) = Worksheets("入力").Cells(4, 3)
Next i
End Sub
|
|