現在の月を検索してそれにペーストの合計

現在の月の総金額の合計を貼り付けようとしています。現在の月を検索してそれにペーストの合計

この

は私がこれまで持っているものであるが、それは文句を言わない現在の月に応じてコンテナの列に合計を貼り付け

これは私のコード

Sub Macro1() 
    ' 
    ' Macro1 Macro 
    ' 
    For i = 2 To 13 
     If Cells(i, 5) = Month Then Cells(i, 6) = Cells(34, 2) 
     Cells(i, 6).Select 
     Selection.copy 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
     Application.CutCopyMode = False 
    Next i 
End Sub

出典

2016-07-31 Sam Aljabri

[SUMIFS関数]（https://support.office.com/en-us/article/SUMIFS-function-C9E748F5-7EA7-455D-9406-611CEBCE642B）が勝ったという理由があります仕事は？ – Jeeped

VBAの初心者ですが、仕組みがわからない –

ピボットテーブルサムはなぜですか？ –

あなたは使用することができていますこのようなスクリプト辞書：

Sub SumContainersByMonth() 
    Dim c As Range, DataRange As Range 
    Dim count As Double 
    Dim key As String 
    Dim k, Keys, Items 
    Dim dict As Object 

    Set dict = CreateObject("Scripting.Dictionary") 

    Set DataRange = Range("A2", Range("A1").End(xlDown)) 

    For Each c In DataRange 
     key = DateSerial(Year(c), Month(c), 1) 
     count = c.Offset(0, 1) + dict(key) 
     dict(key) = count 
    Next 

    Keys = dict.Keys 
    Items = dict.Items 

    Range("E2").Resize(UBound(Keys) + 1) = WorksheetFunction.Transpose(Keys) 
    Range("F2").Resize(UBound(Items) + 1) = WorksheetFunction.Transpose(Items) 

End Sub

プロジェクトの設定を少し変更し、データの小計を作成します。ここで

は、私は日の左に月 - 年の列を挿入する方法を

です。 Month-Yearの値はDay列の値と同じにする必要がありますが、形式はMMM-YYになります。 [データ]タブをクリック小計で