Question

我正在研究一个宏，以简化我每天在工作中所做的过程。我从前几天提取数据，并用它来生成当前日期。

目前，我发现最好的方法是进入代码并手动更改所需的部分。

`Sheets("Open PO ").Select
Sheets("Open PO ").Move Before:=Workbooks("random1.xlsx").Sheets(1)
Sheets("66").Select
Range("Y5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC7,'66'!R3C7:R142C25,18,FALSE)"
`

运行完整代码后，它将从昨天的（66-> 6/6）数据中提取数据，并使用vlookup函数获取一大块数据并将其粘贴到新的一天。只要我手动更改代码，它就可以完美运行。

我只是不确定是否有一种方法不必手动更改它。

Answer 1

根据您的描述，我假设您每天都会得到一张新的工作表，其余的都是静态的。

可能需要一些调整，但这应该是一个开始：

Dim strSheet As String
strSheet = Day(Date) - 1
strSheet = strSheet & Month(Date)

Sheets("Open PO ").Move Before:=Workbooks("random1.xlsx").Sheets(1)
Sheets(strSheet).Range("Y5").FormulaR1C1 = "=VLOOKUP(RC7,'" & strSheet & "'!R3C7:R142C25,18,FALSE)"

如何从每日报告中的上一个条目中提取数据？

1 个答案: