VBA-复制图纸值，使用变量名粘贴到图纸

我有一个用户表单，允许人们输入一系列数据的日期范围，然后用它命名宏其余部分的输出。我正在尝试复制第一张工作表

WWOutput

上的所有值，其中所有数据都将被分析/计算并粘贴到一个新创建的工作表中，该工作表的名称为变量

DateRange

，该变量每次都会发生变化

我目前正在尝试：

Worksheets.Add(Before:=Worksheets("Calc")).Name = DateRange.Value
Worksheets("WWOutput").Range("A1:Q1000000").Copy
Worksheets(DateRange).Range("A1").PasteSpecial Paste:=xlPasteValues

创建新工作表并复制工作表，但它没有复制到我想要的工作表。如果我尝试

.Cells

而不是

.Range

它会给我“类型不匹配”

我做错了什么

---

Josh

您缺少

.Value

Worksheets(DateRange.Value).Range("A1").PasteSpecial Paste:=xlPasteValues

---

您缺少

.Value

Worksheets(DateRange.Value).Range("A1").PasteSpecial Paste:=xlPasteValues

这应该适合你的需要。我正在为您添加的工作表（称为

ws

）设置一个对象引用，然后将其名称设置为

DateRange.Value

。此时，指定粘贴时所需的工作表就足够简单了。这样，您可以在使用引用时以多种方式使用它。如果你需要进一步的解释，请告诉我

这应该适合你的需要。我正在为您添加的工作表（称为

ws

）设置一个对象引用，然后将其名称设置为

DateRange.Value

。此时，指定粘贴时所需的工作表就足够简单了。这样，您可以在使用引用时以多种方式使用它。如果你需要进一步的解释，请告诉我