Excel VBA(エクセル マクロ) 小技集そのN 異なるワークシートでのRANGEコピー

異なるワークシートでのRANGEコピーする方法。

異なるワークシートにコピーをしようとするとこのようなプログラムを書きます。

Workbooks("excel.xls").Worksheets(1).Range(Cells(1, 1), Cells(5, 5)).Copy
Workbooks("excel1.xls").Worksheets(2).Range(Cells(1, 1), Cells(5, 5)).Paste

Workbooks("excel.xls").Worksheets(1).Range(Cells(1, 1), Cells(5, 5)).Copy _
Workbooks("excel1.xls").Worksheets(2).Range(Cells(1, 1), Cells(5, 5))

ただこれではインデックスが有効ではありませんとエラーになってしまいます。

これだとうまくいきます。

Range(Workbooks("excel.xls").Worksheets(1).Cells(1, 1), Workbooks("excel.xls").Worksheets(1).Cells(5, 5)).Copy
Range(Workbooks("excel1.xls").Worksheets(2).Cells(1, 1), Workbooks("excel1.xls").Worksheets(2).Cells(5, 5)).Paste

Rangeは一つのワークシートないでしか共用できないようで、別ブックの別シートで指定する場合はブックごとにに指定する必要があるようです。



忍者Admaxのテキスト広告で収入UP!

実践!ExcelデータベースTOP