excel - Excel VBA - 複数の行の範囲を別のシートにコピーする

Question

with Sheets("XYZ")    
wSheet.Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy
    .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select
    .Paste

それが機能せず、代わりに 8 から 472 までのすべての行が表示されるのはなぜですか? すべてではなく、特定の行が必要です。

Answer 1

次のコードを期待どおりにコピーできました。これは Excel 2007 での動作でした。動作が異なる以前のバージョンを使用している可能性があります。

Public Sub Test()
    With Sheets("XYZ")
        .Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy
        .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select
        .Paste
    End With
End Sub