Excelの列にある、同じ日付の数の合計の出し方

質問

ExcelのA列に、ある月の日付が1000行程並んでいます。
日にち毎の行が何行あるか調べたいのですが、
VBAで調べることは出来るのでしょうか？

回答No.1

pauNed · ベストアンサー

こんにちは。
VBAでないといけないですか？
例えばピボットテーブルを使うという案などもあります。

'A1セルに見出しが入力されているとして。
'K1セルに結果を書き出すサンプルです。
Dim r As Range
Set r = Range("A1", Range("A65536").End(xlUp))
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
　　　　　　　　　　　　　　　　　　SourceData:=r.Address(external:=True))
　　With .CreatePivotTable(TableDestination:=Range("K1"))
　　　　.AddFields RowFields:=r.Cells(1).Value
　　　　With .PivotFields(r.Cells(1).Value)
　　　　　　.Orientation = xlDataField
　　　　　　.Function = xlCount
　　　　End With
　　End With
End With
Set r = Nothing

お礼

回答ありがとうございます。

教えていただいたピポットテーブルで上手くいきました。
ありがとうございました。