|
そーいうことですと、MsgBoxなどに表示するのは無理がありそうですね。
ならば集計機能を使って、セルに表示するようにしたら良いと思います。
こんな感じのコードでどうでしょーか ?
Sub Test_ID集計()
Application.ScreenUpdating = False
With Range("A1").CurrentRegion
.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Header:=xlYes, Orientation:=xlSortColumns
.Subtotal 1, xlCount, Array(3)
.Subtotal 3, xlCount, Array(3)
End With
Cells.ClearOutline
Application.ScreenUpdating = True
End Sub
実行後は、アウトラインを非表示にしているので分かりにくいですが、
集計の機能がかかったままになっています。なのでカウントをチェックした後は
「データ」「集計」「すべて削除」で集計機能を解除してから終わらせて下さい。
|
|