Question

我有一个在excel文档中创建的代码，因为它可以是300行，它们都是相似的，我想将一个范围从一张纸复制到另一张纸，然后删除第二张纸。我设法从一张纸复制到另一张纸，但删除无法正常工作，我需要在一行上全部完成。

这就是我所做的

Sheets("100614_2019010915_1min").Range("A2:Q60").Copy Destination:=Sheets("100614_2019010914_1min").Range("A61").Sheets("100614_2019010915_1min").Delete

Answer 1

我相信你曾对此感到沮丧：

Sheets("100614_2019010915_1min").Range("A2:Q60").Copy Sheets("100614_2019010914_1min").Range("A61")
Sheets("100614_2019010915_1min").Delete

Answer 2

尝试：

Sheets("100614_2019010915_1min").Range("A2:Q60").Copy 
Destination:=Sheets("100614_2019010914_1min").Range("A61")
Sheets("100614_2019010915_1min").Delete

OR：

Sheets("100614_2019010915_1min").Range("A2:Q60").Copy Sheets("100614_2019010914_1min").Range("A61")
Sheets("100614_2019010915_1min").Delete

为什么复制后无法删除工作表？

2 个答案: