Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27934 / 76732 ←次へ | 前へ→

【54111】重複データを上書きしたい
質問  かつさん  - 08/2/24(日) 21:16 -

引用なし
パスワード
    「入力シート」と「集計シート」の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

1 hits

【54111】重複データを上書きしたい かつさん 08/2/24(日) 21:16 質問

27934 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free