エクセルにて・・・。

質問

前回いろいろと教えていただき、非常に為になりました。
また、くどいようですが質問させていただきます。

シートAの1～5に1,2,3,3,1と入力したとき、
シート2のA1には「１」がいくつ入力されているか、A2には「2」がいくつ入力されているか、A3には「３」がいくつ入力されているか？
このマクロを教えていただきたいのですが。

　　　　　　　　＋

そこでシート1に「確定ボタン」らしきものを作成し、この「確定ボタン」を押すことにより、シート1の値を削除、変更してもシート２の値が変更されない機能は作成できるのでしょうか？要はシート1にて入れた数字をシート２には加算させたいのです。

との質問に↓

Sub Test()
　Sheets("Sheet1").Select
　With Sheets("Sheet2")
　　.Range("A1") = .Range("A1") + WorksheetFunction.CountIf(Range("A1:A5"), 1)
　　.Range("A2") = .Range("A2") + WorksheetFunction.CountIf(Range("A1:A5"), 2)
　　.Range("A3") = .Range("A3") + WorksheetFunction.CountIf(Range("A1:A5"), 3)
　End With
End Sub
このマクロを教えていただき、非常に助かったのですが、
実際に活用したいのは、シート1のA4～A19までの範囲をシート2のB1に、シート1のD4～D19までの範囲をシート2のB3にという形にして使用したく、上記マクロをちょっといじったのですが、上手く反映されません。ちなみにシート1にて入力されている文字数は4～8桁の数字+1桁の英文字です。

まったくもって素人質問ですみません。
教えていただければ助かります。
よろしくお願いします。

回答No.2

noname#79209

VBAでなく手作業でやるとしたら
1.シート１の1行目を追加し、セルA1に「コード」などと表題を入れます。
2.A列を選択し、「データ」から「並べ替え」を行います。
3.シート１全体をシート２にコピーします。
4.「データ」から「集計」を選択し、「集計の方法」に「データの個数」を指定
5.「OK」を押す

個数を出すだけなら、これでも可能かと．．．

回答No.1

Wendy02

こんばんは。

http://oshiete1.goo.ne.jp/qa2519702.html
このQ&Aからですね。

>ちなみにシート1にて入力されている文字数は4～8桁の数字+1桁の英文字です。

カウントさせるデータの項目行は付いていないのですか？なければないものとして作らなくてはなりません。

Sheet1
　A
1
2
3　コードA　←項目行
4　12345A
5　23456B
6　12345A
7　23456C
8　23456B
9　　・

次に、

シート2のB1に
シート2のB3に

どのように出すのですか？
B1, C1, D1, E1・・・・
B3, C3, D3, E3・・・・

とするのでしょうか？

もともと、検索リストはあるのですか？
上記の例ですと、

12345A,　23456B,　23456C

となりますが、一体、何を元にするのでしょうか？ないなら、そのリスト自体をどこかに出さなければ、数だけだとても、分かりにくいです。

もう少し、具体的に例を示してください。そうしないと、話が続いていかないように思います。