HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > 他ブックのシートの使われているセル内容を全てコピーする

即効テクニック

ファイル操作関連のテクニック

他ブックのシートの使われているセル内容を全てコピーする

(Excel 97)
他ブックのシートの使われているセル内容を全て、現在開かれているブックのシートにコピーします。

コピー元のブック「Copy元.xls」を開いて、1番最初のシートの使われているセルをUsedRangeプロパティを使って取得して、Copyメソッドで現在開かれているブック「Test.xls」の1番最初のシートにコピーします。

Sub Test()
    Dim a As Variant
    Dim b As Variant
    
    Workbooks.Open Filename:="Copy元.xls"
    Set a = Workbooks("Copy元.xls").Worksheets(1).UsedRange
    Set b = Workbooks("Test.xls").Worksheets(1).Range("A1")

    a.Copy (b)

    Set a = Nothing
    Set b = Nothing
End Sub