ＶＢＡ 別シートからコピー貼付け（複数列）

質問

別シートからコピー貼付け（複数列）をしたいのですが，同一シートからのコピー貼付けはネットから以下のマクロでできました。
しかし，別シートsheet1からsheet2ヘコピーで修正しましたが，「アプリケーション定義またはオブジェクト定義のエラーです。」となります。どなたかご教授よろしくお願いします。

修正したマクロ
Sub sampel()
Dim i As Long
For i = 2 To Range("E65536").End(xlUp).Row Step 2
Sheets("sheet2").Range(Cells(i + 1, 2), Cells(i + 1, 85)).Value = _
Sheets("sheet1").Range(Cells(i, 5), Cells(i, 88)).Value
Next i
End Sub

参考としたマクロ

http://www.excel.studio-kazu.jp/kw/20041208152106.html

Sub sampel()
Dim i As Long
For i = 2 To Range("E65536").End(xlUp).Row Step 2
Range(Cells(i + 1, 2), Cells(i + 1, 85)).Value = _
Range(Cells(i, 5), Cells(i, 88)).Value
Next i
End Sub

回答No.1

noname#203218 · ベストアンサー

VBAの一例です。

Sub test()
Dim i As Long
Dim MaxR As Long

With Sheets("sheet1")

MaxR = .Cells(Rows.Count, 5).End(xlUp).Row

For i = 2 To MaxR Step 2
Sheets("sheet2").Cells(i + 1, 2).Resize(, 84).Value = .Cells(i, 5).Resize(, 84).Value
Next i

End With

End Sub

range("a1:c1").value=range("a10:c10").valueはVBAで可能なのですが、cellsで複数セル範囲を指定して.valueを利用する事はVBAでは出来ないようです。
先頭のセルをcells(,）で指定してresizeで行数、列数を指定する構文になるようです。

SUB　testでは　先頭セルから84列分に数値を入力する事にしています。

データ入力している最大行の取得を変数MaxRとしています。E列は５番目なので.Cells(Rows.Count, 5).End(xlUp).Rowは５としています。エクセル２００３までは最大行数は記載されてる６．５万行でしたが、２００７以降は１０万行以上となっています。
Cells(Rows.Count, 5).End(xlUp).Rowは２００３以前、2007以降どちらでも利用できます。

お礼

出張で連絡が遅くなり申し訳ございません。

動作を確認した結果思いどおりの結果を得ることができました。大変ありがとうございました。