VBAで条件に一致する集計をしたい！

Question

今回会社で、以下の条件に一致する集計システムを作るように言われたのですが、VBAをさわるのは初めてで苦戦しています。

【条件】

・応募日(D列)より、月のユニーク応募数を集計する
・月ごとの掲載企業(A列)ごとの応募数を集計する
・月ごとの都道府県(C列)ごとの応募数を集計する
・月ごとの掲載企業(A列)ごとの求人数を集計する

【サンプル画像】

自分でもコードを調べて少しずす書いているのですが、如何せんうまくいきません。
大変恐縮ですが、どなたか上記の集計システムを作るコードをご教授いただけますでしょうか。

Comments

[ttyp03]

> 如何せんうまくいきません
うまくいかなかったコードを提示してください。
丸投げの質問は推奨されません。

Answer 1

記載するVBAはCollectionとワークシート関数を使ったサンプルになります。
日付が全て6月でしたので7月、8月、9月などダミーで作成してください。
まず、シート名をdataと仮定しE列に集計用の応募月を追加するマクロを実行します（手作業でも構いません）。

次に、集計結果のシートを手作業で集計1として集計用シートを作成しておいてください（集計用マクロを実行するたびに手作業でシートの内容をクリアしてください）。

最後に、集計条件で応募数と求人数の区別がつかなかったため最後の集計条件は未作成です。
参考になるかはわかりませんが、よろしくお願いします。

Sub 加工()

Dim maxrow As Double

'■集計用に応募月を付与します

maxrow = Sheets("data").Range("A1").End(xlDown).Row

With Sheets("data")
        .Range("E1").Value = "応募月"
End With

With Sheets("data")

        For i = 2 To maxrow
                .Range("E" & i).Value = WorksheetFunction.Text(.Range("d" & i).Value, "yyyy/mm")
        Next
End With

End Sub

Sub ユニーク応募数の集計()

    Dim c As New Collection
    Dim maxrow As Double
    Dim i As Double
    
    On Error Resume Next
    
    maxrow = Sheets("data").Range("A1").End(xlDown).Row
      
    
    For i = 2 To maxrow
    
       c.Add Sheets("data").Range("D" & i), Format(Sheets("data").Range("D" & i).Value, "yyyy/mm/dd")
    Next i
    
    
    On Error GoTo 0
    
       
    
    For i = 1 To c.Count
        Sheets("集計1").Range("A" & i) = c(i)
        Sheets("集計1").Range("B" & i) = WorksheetFunction.CountIfs(Sheets("data").Range("D:D"), Sheets("集計1").Range("A" & i))
        
    Next i

End Sub

Sub 掲載企業名の集計()

    Dim MyCompany  As New Collection
    Dim Mymonth As New Collection
    Dim maxrow As Double
    Dim i As Double
    Dim j As Double
   
  '■Collectionをつかって重複を省く集計行の一覧を作成
   
    On Error Resume Next
    
    maxrow = Sheets("data").Range("A1").End(xlDown).Row
      
    For i = 2 To maxrow
       
       MyCompany.Add Sheets("data").Range("A" & i), Sheets("data").Range("A" & i) '■掲載企業名
       Mymonth.Add Sheets("data").Range("E" & i), Sheets("data").Range("E" & i) '■応募月（yyyy/mm）
    Next
    
    On Error GoTo 0
    

    '■掲載企業名を展開する（集計用)
    
    For i = 1 To MyCompany.Count
         Sheets("集計1").Range("A" & i + 1).Value = MyCompany(i)
    Next
    
     '■集計月を展開する（集計用)
    
    For i = 1 To Mymonth.Count
        Sheets("集計1").Cells(1, i + 1).Value = Mymonth(i)
    Next
    
    '■ワークシート関数でクロス集計を行う
    For i = 2 To MyCompany.Count + 1
    
     For j = 2 To Mymonth.Count + 1
     
        With Sheets("集計1")
        .Cells(i, j) = WorksheetFunction.CountIfs(Sheets("data").Range("A:A"), .Cells(i, 1), Sheets("data").Range("E:E"), .Cells(1, j))
        
        End With
        
       Next j
    Next i
    
   
    
End Sub

Sub 都道府県の集計()

    Dim Mypref As New Collection
    Dim Mymonth As New Collection
    Dim maxrow As Double
    Dim i As Double
    Dim j As Double
   
  '■Collectionをつかって重複を省く集計行の一覧を作成
   
    On Error Resume Next
    
    maxrow = Sheets("data").Range("A1").End(xlDown).Row
      
    For i = 2 To maxrow
       
       Mypref.Add Sheets("data").Range("C" & i), Sheets("data").Range("C" & i) '■都道府県
       Mymonth.Add Sheets("data").Range("E" & i), Sheets("data").Range("E" & i) '■応募月（yyyy/mm）
    Next
    
    On Error GoTo 0
    

    '■都道府県名を展開する（集計用)
    
    For i = 1 To Mypref.Count
         Sheets("集計1").Range("A" & i + 1).Value = Mypref(i)
    Next
    
     '■集計月を展開する（集計用)
    
    For i = 1 To Mymonth.Count
        Sheets("集計1").Cells(1, i + 1).Value = Mymonth(i)
    Next
    
    '■ワークシート関数でクロス集計を行う
    For i = 2 To Mypref.Count + 1
    
     For j = 2 To Mymonth.Count + 1
     
        With Sheets("集計1")
        .Cells(i, j) = WorksheetFunction.CountIfs(Sheets("data").Range("C:C"), .Cells(i, 1), Sheets("data").Range("E:E"), .Cells(1, j))
        
        End With
        
       Next j
    Next i
   
End Sub

Comments

[mako1972]

ご希望の集計は出来ましたでしょうか。
ワークシート関数で行っていますが
使わなくても可能だと思います。

Answer 2

色々な方のコメントを見ました。

少しお待ちください。

皆さんのおっしゃっていることはわかるのですが。初学者はしょうがないのです。

関数でやる場合はご存じですか？

そこからやりましょうか？

Comments

[mako1972]

追記です。
マクロを使うまでもありませんという意見について。
処理を行う方が、マスタを完璧に把握されている場合は、重複を人間がはぶいてリストを作るため
確かに、あらかじめ項目がわかっている場合はCountifやSumifなどの関数で完結します。
これができない場合はVBAを使う必要があります。

[mako1972]

回答者は適切な回答をできずに、ふるまいだけを責めるという・・。
このサイトは初学者をディスりますね。ばかばかしいバカだけなので一時的なコメントするだけに戻りました。
一旦離脱しましたがバカばっかりなので一時的な回答です。
模範解答をしてまた脱退しますのでよろしくお願いします。
回答まえに消される可能ありなので一旦意見だけとします。

[mako1972]

ｘ

Answer 3

マクロを使うまでもありません。

エクセルの機能で十分対応可能かと思われます。

まずは、エクセルでできることを把握し、
そのうえで「作業の自動化(=マクロ化）」を図りたい部分を明確にしましょう。

それでもマクロを作りたいと思うならば、
自分で地道に勉強しながら作ることになります。
その中で躓いたところを質問しましょう。

いきなり、「どんなコードになるの？」と聞くのは、
「マクロを作ってください。」と同意です。

Comments

[ttyp03]

実質の回答になってないので低評価とさせていただきます。
またエクセルの機能で十分と提案するのなら、何の機能を使えばできるかなどの情報提供は必要かと。

[mako1972]

まとも！！