根据excel最后一行中的日期合并

我创建了一个简单的宏，用于将文件一个接一个地合并（即，找到最后一行并粘贴下一个数据）

因此，每天根据我需要合并数据的日期（一个月-30天）

我的文件保存在路径-I:\Tracker\2017\May'17中

文件名：签核表\u May \u01（该日期根据日历日期为每天5月1日）

文件路径和创建名为KPI的工作表的日期，并在其中输入详细信息

我的代码如下：

Sub KPI()

    Set thiwkb = ThisWorkbook.Worksheets("KPI")

    Mydate = thiwkb.Range("B2")

    Set destsheet = ThisWorkbook.Sheets("Production")

    Path = thiwkb.Range("B3") & "\" & "Signoff Sheet_" & Mydate & ".xlsx"

    Irow = 1
    Irow1 = 1
    Irow2 = 1

    Set wkb = Workbooks.Open(Path)
    wkb.Worksheets("Daily tracker").Range("A1").CurrentRegion.Copy Destination.Range("A" & Irow)

    wkb.Close False

    Irow = destsheet.Range("a1").CurrentRegion.Rows.Count + 1

End Sub

---

我的代码正在提取数据，但是，当我每天更改KPI表中的数据时，我需要根据日期合并或粘贴数据。

尝试以下操作：Destination:=thiwkb.Range（“A”&Irow）或您从中复制的任何一本书，其格式为Destination:=wb.ws.Range（“A1”）。您是否遗漏了按日期定义范围的代码？我看不到。你提到的代码给我带来了一个调试错误。我在工作表上提到的日期称为“KPI”-我将每天更改日期，我所需要的只是作为一个例子，当我更改日期时，目标工作表必须选择行的最后一行并粘贴数据，而不管我选择的日期如何确定，我迷路了。你的代码把我弄糊涂了。让我们从伪代码开始。你需要“整合一个月的数据”，这是什么意思？是否要为每个月的每一天向工作表添加一行？或者你是把一个月的所有数据都加到工作簿的一行上？下一步，在您要编写的工作簿中，是否为每月的每一天创建新工作簿？或者您希望每个月有一个工作簿，并在该工作簿的新行中添加每日总计？你写给的书和你画画的书的名字。