Vba 自动将每日更新的数据透视表数据添加到表中的新单元格

我正在尝试按照Velin Georgiev的方法自动生成Excel报告

这是一个每日报告，我有一个表，在其中我将每日更新的数据透视表的总值添加到一个新单元格中（数据透视表和标准表都在同一工作表上）

在标准表中，Date列包含“今日”日期，Total从数据透视表中获取数据。这张桌子每天应该增加一行

到目前为止，这是手动完成的。有可能用VBA实现吗？如何实现

---

如果有任何帮助，我们将不胜感激。

您的案例似乎是excel中一个更广泛理念的应用，即了解信息块的底部。有几种不同的方法（总结），每种方法都有各自的优缺点

对你的情况来说最简单的一个可能是。结束。我不知道你的工作表的确切结构，但类似于下面的内容

Range("A" & Cells(Rows.Count, "A").End(xlUp).Row - 1).Copy

将复制表格A列倒数第二行中的单元格（就在“总计”之前）-如果有小计，则将其设置为-2，或其他形式

然后，要复制到标准表，请执行以下操作

 Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1).PasteSpecial xlPasteValues

---

其中“F”是表格的第二列（或您想粘贴它的任何位置）。

这就是我解决问题的方法（非常感谢在internet上向他们发布类似问题和解决方案的人）：

---

另一个数据透视表是否能够按日期进行汇总？

Sub VlookupFunction()

   Dim S_Name As String
   Dim Lookup_Range As Range  
   Dim S_Value As Single

   Dim c As Long 'column
   Dim r As Long 'row

   S_Name = "OpenState"
   Set Lookup_Range = Range("A1:B10")

   S_Value = Application.WorksheetFunction.VLookup(S_Name, Lookup_Range, 2, False)

With Sheet1

  r = .Columns(3).Find(what:="", after:=.Cells(14, 3)).Row
    .Cells(r, 3) = Date 'today 

  r = .Columns(4).Find(what:="", after:=.Cells(14, 4)).Row
    .Cells(r, 4) = S_Value

End With

End Sub