（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提取相應行標簽名稱的數據，則不必指定sum。 我當時正在考慮在工作表2上放置一個“開始日期”和“結束日期”單元格以供參考，或以某種方式使用TODAY（）函數作為日期，但不確定如何指定從今天到今天的日期范圍的提取和求和值。 11個月前。

編輯：*請注意，這是我當前情況的精簡版本，所有內容都較大，為避免混淆，需要樞軸，但出於這個問題，我選擇將其稀釋。

Answer 1

您真的需要數據透視表嗎？

如果不這樣做，則只需創建一個包含所有名稱的新工作表，為要考慮的開始日期設置一個單元格，然后= sumifs

例如

在Sheet2 B1上放入1/24/2016。 然后在A2上插入名稱（例如，Sarah），在B2上輸入公式

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

之后，只需列出名稱，然后將公式拖到每個名稱旁邊即可。

*我的擅長語言是葡萄牙語，所以該公式可能需要一些其他調整才能起作用。