vba - 将当前工作表设置为变量，以便更轻松地使用公式

Question

我想将我当前的事件工作表设置为变量，以便能够更轻松地使用 vlookups 而不会出现问题。我想这样做的原因是因为我每天运行这个宏并且每天事件工作表都有新名称(新日期)。现在在我的宏中我使用 ActiveSheet 但我使用了很多 vlookup 并来回走所以它崩溃了.. 我将提供代码的开头以便更清楚.. 我所需要的只是一种设置当前的方法事件书作为变量。这样，即使事件工作表发生变化，旧的当前工作表也会保存为变量

Application.DisplayAlerts = False
ActiveSheet.Cells.Copy
Worksheets.Add.Name = ActiveSheet.Name & "_Daily_RCCP"
With ActiveSheet
.Cells.PasteSpecial xlValues
.Cells.PasteSpecial xlFormats
End With
Application.DisplayAlerts = True

如您所见，事件工作表更改了两次。所以，我想将最后一个事件工作表设置为变量

Answer 1

引出@ScottCraner 在评论中提到的内容。

Dim ws1 as Worksheet
Set ws1 = ActiveSheet

Worksheets.Add.Name = ws1.Name & "_Daily_RCCP"

Dim ws2 as Worksheet
Set ws2 = ActiveSheet 'bc adding a sheet automatically makes it active

ws1.Cells.Copy

With ws2.Cells
    .PasteSpecial xlValues
    .PasteSpecial xlFormats
End With

'n.b. - i would personally avoid copying all the cells in a worksheet
'instead copying the usedrange or some defined range