我需要一个excel宏来根据变量导出数据

我有一个导出保存的发票的电子表格。这个出口运作得很好。但是，我只想导出前一周的数据。工作簿中的最后一个单元格包含上次保存的日期。我想搜索该列以查找前7天内最后保存的日期，并创建一个仅包含该数据的导出csv文件

这是我到目前为止所拥有的

Sub CopyToCSV()
Dim MyPath As String
Dim MyFileName As String
Dim Region As Variant

Application.ScreenUpdating = False
Sheets("Invoice").Activate
Region = Range("E5").Value
Sheets("Stored Invoices").Activate

MyPath = Application.ActiveWorkbook.Path
MyFileName = "Region" & Region & "-" & Format(Date, "ddmmyy")
'Makes sure the path name ends with "\":
MyPath = MyPath & "\"
'Makes sure the filename ends with ".csv"
MyFileName = MyFileName & ".csv"
'Copies the sheet to a new workbook:
Sheets("Stored Invoices").Copy
'The new workbook becomes Activeworkbook:
With ActiveWorkbook
'Saves the new workbook to given folder / filename:
'MyPath &
.SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
'Closes the file
.Close False
End With
End Sub

任何帮助都将不胜感激

---

贝基

假设数据是有序的：

循环遍历包含日期的列中的每个单元格，并计算所述日期。让它循环，直到它遇到比当前数据早7天以上的日期。在循环中有一个计数器，用于计算循环的行数。然后，它只是一个范围（“A1”，单元格（countedrows，Numcolumns））。复制DestinationRange假设数据从A1开始，那么范围将是从A1向下到最后一列中最后一个计数行，然后将其移动到新的工作表/书籍，并保存该数据

有一个逻辑，用你的新代码编辑你的帖子，如果你被卡住了就发表评论

嗯