| |
「入力シート」と「集計シート」の２シートがあり、以下のマクロを実行すると、次のように集計シートへ転記されます。
再度、同じデータで実行すると集計シートのＡ７セルから同じデータが転記されてしまいますが、同一の「客NO」の場合、上書きするようにしたいのです。（再びＡ２セルから転記）
どのように書けばよいのでしょうか。
素人で恐縮ですが、どうぞよろしくお願いいたします。
（入力シート）
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
|
|
かつさん
- 08/2/24(日) 21:16 -
