Question

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

有一个'Create New Month'宏最终会调用“SetupEachDay”子。它以特定顺序复制表A，B，C和D以创建新文件。我已经修改了4张包含我想要的数据作为适当的模板。复制工作表时，代码复制Range("B13")，显然只将A / B / C / D列A-L复制到新工作表。我需要从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

如果你很乐意对范围进行硬编码，那么应该这样做。

更改私有变量或定义Range变量。 Excel VBA

1 个答案: