Excel VBAで別のブックのシート内容をコピーする方法

日付:

 


Excel VBAで別のブックのシート内容をコピーする方法

Excel VBAを使って、別のブックのシートの内容を現在のブックにコピーする方法を紹介します。この操作は、データの統合や自動化などで便利です。

ステップバイステップの手順

  1. 新しいマクロを作成:

    • Excelを開いて、新しいワークブックを作成します。
    • 「開発」タブを表示し、「Visual Basic」をクリックしてVBAエディタを開きます。
    • 「挿入」メニューから「モジュール」を選択して新しいモジュールを作成します。

  2. コードを記述:

    • 以下のコードを新しいモジュールに貼り付けます。
    Sub 違うブックのシート内容をコピー()
    Dim SmaxRow As Long
    'test.xlsxのA列の最終行を取得
    SmaxRow = Workbooks("test.xlsx").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    'test.xlsxの一番目のシートの内容を、開いている一番目のシートにコピー
    Workbooks("test.xlsx").Sheets(1).Range("A1:A" & SmaxRow).Copy ThisWorkbook.Sheets(1).Range("A1")

End Sub

  3. 実行:

    • マクロを実行するには、VBAエディタを閉じてExcelに戻ります。
    • 「開発」タブで「マクロ」をクリックし、CopyFromAnotherWorkbook を選択して実行します。

これで、別のブックのシートの内容が現在のブックのシートにコピーされます。ぜひお試しください！

このブログ記事がExcel VBA初心者の方にとって役立つことを願っています。もしさらなる質問があればお気軽にどうぞ！


今日のメモ

　エヌビディアは好調ですが、マイクロソフトは下げです。頑張ってほしいです。
　

マイクロソフト

　株価　今日４１３．７２ドル／株（アメリカ時間　１６時００分時点）
　　　　昨日４２４．７４ドル／株（アメリカ時間　１６時００分時点）
　OVER累計　  １３１１４
　UNDER累計　   １８６７
　株価下落中です。思いっきり売り優勢状態です。空売りされてるんでしょうか。

エヌビディア

　株価　今日９０３．９９ドル／株（アメリカ時間　１６時００分時点）
　　　　昨日８９８．７８ドル／株（アメリカ時間　１６時００分時点）
　OVER累計　  ３７４１
　UNDER類家　６０２４
　株価上昇してきました。買い優勢です。