[[20170510133019]]　『重複を1カウントとし、複数条件で集計する方法』（papi）　ページの最後に飛ぶ

『重複を1カウントとし、複数条件で集計する方法』（papi）

[社名] [区分]

以上の表から区分が[01]の企業数をカウントする場合の
関数もしくはマクロを教えていただけないでしょうか。
この場合、01区分のA社が重複するため、
これを１カウントとして集計し、「3」と表示させたいです。

データ量が膨大なため、フィルターを掛けて別表から集計する方法は
避けたいと考えています。

以上、よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 重複の削除をしてからピボットテーブルとかでは？

 >データ量が膨大なため

 何件くらい？
（コナミ） 2017/05/10(水) 14:43

Sub main()

    Dim dic, c As Range
    Set dic = CreateObject("Scripting.Dictionary")
        For Each c In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
            If c.Offset(, 1).Value = "01" And Not dic.Exists(c.Value) Then dic.Add c.Value, True
        Next c
    MsgBox dic.Count & "件"
End Sub
（mm） 2017/05/10(水) 16:04

(コナミ)さん
ありがとうございます。
その方法は可能なのですが、何通りも同じ動作をしなければならなく、
重複行を削除してピボット…を繰り返すのは工数が多すぎるため
避けたいと考えています。
現状で、18000行/30列くらいのデータです。

(mm)さん
ありがとうございます。
エクセルに触り始めたのが先週くらいで右も左もわかりませんが
当てはめて試行錯誤してみます。
（papi） 2017/05/11(木) 10:01

コメント返信：

[ 一覧(最新更新順) ]

[[20170510133019]] 『重複を1カウントとし、複数条件で集計する方法』（papi） ページの最後に飛ぶ

[[20170510133019]]　『重複を1カウントとし、複数条件で集計する方法』（papi）　ページの最後に飛ぶ