更改私有variables或定义一个Rangevariables。 Excel VBA

好的，所以我在excel中使用VBA，遇到了一个问题。 基本上，有人已经编写了这个工作簿做我需要做的事情，但是，我做了一些改变，不知道如何改变一行代码工作。

有一个“Create New Month”macros，最终会调用“SetupEachDay”子菜单。 它以特定的顺序复制工作表A，B，C和D以创build新文件。 我已经修改了4张表来包含我想要的数据作为适当的模板。 复印纸张时，代码复印Range("B13") ，显然只将A / B / C / D中的AL列复印到新纸张上。 我需要从A2:Q82复制function。

我找不到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 

如果你很乐意硬编码的范围，应该做的伎俩。