Excel vba：R1C1の式を使用して別のブックに範囲の値をコピーする

Question

A1の式の代わりにR1C1の式を使用して、ブックの範囲内の値を別のブックにコピーしたいと思います私のコードで整数変数で行の値を後で）。

ので、このコードは、私の作品：

Sub test() 
    Dim x, y As Workbook 

    Set x = ThisWorkbook 
    Set y = Workbooks.Open("myfilepath") 

    x.Sheets(1).Range("A1:B1").Copy 
    y.Sheets(1).Range("A32:B32").PasteSpecial 

End Sub 

私は（私が同等だと思う）そのような何かをしようとした場合しかし、それは動作しません（私は'1004' error at x.Sheets(1).Range(Cells(1, 1), Cells(1, 2)).Copyを取得する）：

Sub test() 
    Dim x, y As Workbook 

    Set x = ThisWorkbook 
    Set y = Workbooks.Open("myfilepath") 

    x.Sheets(1).Range(Cells(1, 1), Cells(1, 2)).Copy 
    y.Sheets(1).Range(Cells(32, 1), Cells(32, 2)).PasteSpecial 

End Sub 

誰かがそれがうまくいかない理由と、どのように整数変数を使用して文字の代わりに行を定義することができるのか説明できますか？

Answer 1

あなたがWithブロック使用することができ、よりコンパクトなコードについて

x.Sheets(1).Range(x.Sheets(1).Cells(1, 1), x.Sheets(1).Cells(1, 2)).Copy 
y.Sheets(1).Range(y.Sheets(1).Cells(32, 1), y.Sheets(1).Cells(32, 2)).PasteSpecial 

のように、Cellsの親オブジェクトを指定する必要があります。これは役立つかもしれ

With x.Sheets(1) 
.Range(.Cells(1, 1), .Cells(1, 2)).Copy 
End With 
With y.Sheets(1) 
.Range(.Cells(32, 1), .Cells(32, 2)).PasteSpecial 
End With 

希望を。