vba - 更改私有(private)变量或定义范围变量。 Excel VBA

Question

好的，所以我在 excel 中使用 VBA，我遇到了一个问题。基本上，有人已经编写了这个工作簿来完成我需要做的事情，但是，我做了一些更改，无法弄清楚如何更改一行代码来工作。

有一个最终调用“SetupEachDay”子的“创建新月份”宏。它以特定顺序复制工作表 A、B、C 和 D 以创建新文件。我已经修改了 4 张工作表以包含我想要的数据作为适当的模板。复制工作表时，代码复制Range("B13")这显然只是将 A-L 列从 A/B/C/D 复制到新工作表。我需要从 A2:Q82 复制的功能.

我找不到 B13 在哪里已定义，我不知道如何更改它以复制整个工作表。我试着把 Range("A2:Q82")但它没有用。

帮助？

代码:

Counter = 1 'initialize counter
While (Counter < 32)
    If ((DatePart("w", Worksheets(Counter).Range("A1"))) <> "7" And (DatePart("w", Worksheets(Counter).Range("A1"))) <> "1") Then
        Worksheets("E").Range(Worksheets("Setup").Range("B13")).Copy Destination:=Worksheets(Counter).Range("A2")
    End If
Counter = Counter + 1
Wend

Answer 1

Worksheets("E").Range("A2:Q82").Copy

如果您乐于对范围进行硬编码，应该可以解决问题。