使用单元格数复制和粘贴工作表

Question

我已经四处寻找答案，但我找不到真正有助于回答这个问题的答案。它也可能很容易，但对于VBA来说是新手，所以我很努力。我需要的是复制功能，例如。

Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets("Sheet3")

这是直截了当但我希望它能读取单元格C22的值并依赖于此值，例如2我希望它复制这么多张。

我真的很感激你能给予的任何帮助。谢谢： - ）

答案：

var1 = Range("C22").Value

For i = 1 To var1
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(11)
x = x + 1
Next i

Answer 1

在代码周围添加此内容。

var1 = Range("C22").Value

For i = 1 to var1
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy Before:=Sheets("Sheet3")
Next i