Sub 丸丸集計() '変数宣言 Dim カウント As Long Dim 日付 As Long 'オートフィルタの始点 With Range("A1") '日付はA列が今日の日付 .AutoFilter 1, xlFilterToday, xlFilterDynamic 'カテゴリはB列が犬 .AutoFilter 2, "犬" '可視化されているセルが1個以上の場合 If WorksheetFunction.Subtotal(3, Range("B:B")) > 1 Then 'カウントに数を入れる カウント = WorksheetFunction.Subtotal(3, Range("B…