コピー範囲次構造のため

Question

以内に私はループの過程で1枚から別の範囲をコピーしようとしています。今これは私が

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 

を持っているコードである私は、いくつかの異なる方法でコードを書き直す試みたが、それは常に3行目のエラーを思い付きます。私は「私」の値をチェックしましたし、彼らは正しいです。

私が間違っているかもしれないものの任意のアイデア？

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