Sub 〇〇カウント() ' 変数の宣言 Dim 日付 As Long Dim 集計 As Long Dim 集計2 As Long 集計 = WorksheetFunction.CountIfs(Range("A:A"), Date, Range("B:B"), "熊") 集計2 = WorksheetFunction.CountIfs(Range("A:A"), Date, Range("B:B"), "犬") For 日…

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

=SORT(UNIQUE(TOCOL(Sheet1!A:A,1)))

Sub 集計() '日付と種類の変数宣言 Dim 日付 As Long Dim 種類 As Long 'ワークシート宣言 Dim 管理シート As Worksheet Dim 集計シート As Worksheet 'ワークシート名設定 Set 管理シート = Sheet1 Set 集計シート = Sheet2 '集計シートの日付を先頭から最…