Question

我正在尝试在循环过程中将范围从一个工作表复制到另一个工作表。现在这是我的代码

For i = 4 To Worksheets.Count
Worksheets(i).Activate
Sheets("DATA").Range(Cells(i - 2, 2), Cells(i - 2, 6)).Copy
ActiveSheet.Cells(3, 2).PasteSpecial Paste:=xlPasteFormats

我尝试用几种不同的方式重写代码，但它总是在第三行出现错误。我检查了“i”的值，它们是正确的。

关于我可能做错什么的任何想法？

Answer 1

以下是尝试使用其他工作表中的单元格（默认ActiveSheet property）构建范围。

Worksheets(i).Activate
Sheets("DATA").Range(Cells(i - 2, 2), Cells(i - 2, 6)).Copy

它应该更接近，

Worksheets(i).Activate
Sheets("DATA").Range(Sheets("DATA").Cells(i - 2, 2), Sheets("DATA").Cells(i - 2, 6)).Copy

在下一个结构中复制范围

1 个答案: