（VBA）対応する行の値の指定した日付範囲の列値を抽出してコピーして貼り付けます

Question

私はこれでしばらく前から立ち往生していました。私が必要とするのは、タイトルです - 私が持っているものは：

シート1：
10億はほとんど不要な列です。

Column D: Values I need   Column F:   Column M: 
Revenue       Names    Date 

12        John    1/24/2016 2:40:02 AM 
15        Sarah    3/2/2016 4:35:17 PM 
14        Sarah    7/17/2016 1:50:10 PM 
20        Matt    8/20/2012 4:16:12 AM 
10        John    11/19/2015 5:04:05 AM 
etc.       etc. 

現在シート2：ピボットテーブル*

Row Label:     
Sarah  
Matt 
John 
etc. 

理想シート2 ピボットテーブル+ *

Row Label:    Column __: 
         Revenue 

Sarah     29 
Matt     0 *(note: see below, but = 0 because Matts value corresponded to date 2012) 
John     22 
etc. 

シート2について重要なことは、ということですをお願いします。 VBAにシート内のもっとも近い空の列を見つけ、S1から列Dの値を入力し（そして重複の合計）、今日の日付から11ヶ月前の範囲の合計と抽出値のみを入力します。現在、次のシートのピボットテーブルを自動的に作成するモジュールを作成しましたが、ちょっと止まったまま上記を追加したかったのです。

また、対応する行ラベル名のデータを抽出するようにVBAに指示すると、合計を指定する必要はないとも仮定しています。そして、私は、シート2にBegin DateとEnd Dateセルを参照するか、TODAY（）関数を何らかの形で日付に使うことを考えていましたが、今日の日付範囲の値を抽出して合計する方法を明確にしていません11ヶ月前。

編集：*これは私の現在の状態のダウンバージョンであり、混乱を避けるためにすべてが大きくなっていますので、ピボットは必要ですが、この問題のために希釈することを選択します。

Answer 1

本当にピボットテーブルが必要ですか？

あなたはいけない場合は、単に、すべての名前を持つ新しいシートを作成し、あなたが考慮したい開始日のためにセルを設定してください。例えば=のSUMIFS

のSheet2のB1で

あなたが入れた1/24/2016。 はその後、A2に、あなたはあなただけの名前のリストを作成し、すべての名前の横に式をドラッグした後の式

=Sumifs(Sheet1!D:D,Sheet1!F:F,A2,Sheet1!M:M,">"&B$1) 

を入れB2で （例えば、サラ）の名前を挿入します。

*私のExcelはポルトガル語なので、数式には他のいくつかの調整が必要かもしれません。