Excelで別のブックにデータをコピーする
この記事では、Microsoft Excelで別のブックにデータをコピーする方法について説明します。
- 同じワークブック内のデータを移動またはコピーする
- 異なるワークブック内のデータを移動またはコピーする
- VBAを使用してデータを移動またはコピーする
同じワークブック内のデータを移動またはコピーする
最初のステップは、移動またはコピーしたいシートを選択することです。 複数のシートを選択するには、最初のシートを選択してから、 Ctrlキーを押しながらコピーする追加のシートをクリックします。上部ツールバーの[ ホーム ]タブで、[ セル ]グループを探し、[ 書式 ]をクリックします。 シートの整理で、シートの 移動またはコピーをクリックします。
ダイアログボックスが開きます。 「 前」リストで、移動またはコピーしたシートを挿入する前のシートをクリックするか、または「 最後まで移動 」をクリックしてワークブックの最後のシートの後にシートを挿入できます。
シートを移動せずにコピーするには、[ 移動 ] または [ コピー ]ダイアログボックスにある[ コピーを作成する]チェックボックスをオンにします。
異なるワークブック内のデータを移動またはコピーする
Excelワークシートを別のワークブックに移動またはコピーする場合は、まず対象のワークブックが同じバージョンのMicrosoft Excelで開かれていることを確認する必要があります。移動またはコピーするシートを選択してください。 次に、ツールバーの[ ホーム ]タブに移動し、[ セル ]グループ> [ 書式 ]の順にクリックします。 シートの整理で、シートの 移動またはコピーをクリックします。
ダイアログボックスが開きます。 [ To book]リストで、選択したシートを既存のワークブックに移動またはコピーするか、シートを新しいワークブックに移動またはコピーするかを選択します。
「 前」リストで、移動またはコピーしたシートを挿入する前のシートをクリックするか、または「 最後まで移動 」をクリックしてワークブックの最後のシートの後にシートを挿入できます。
VBAを使用してデータを移動またはコピーする
Sub CopyOpenItems（）
'
'CopyOpenItemsマクロ
'未消込明細をシートにコピーします。
'
'キーボードショートカット：Ctrl + Shift + O
'
Dim wbTarget As Workbookのデータを貼り付けるワークブック
Dim wbこれはワークブックとして作成されたもので、データのコピー元のワークブックです。
Dim strName As String 'ソースシート/ターゲットワークブックの名前
'現在アクティブなワークブック（ソースブック）に設定
wbThis = ActiveWorkbookを設定します。
'本のアクティブなシート名を取得
strName = ActiveSheet.Name
'シート名と同じ名前のワークブックを開く
wbTarget = Workbooks.Open（ "C：\ filepath \"＆strName＆ ".xlsx"）を設定します。
'ターゲットブックのセルA1を選択
wbTarget.Range（ "A1"）。選択
'ターゲットブックから既存の値を消去
wbTarget.Range（ "A1：M51"）。ClearContents
'ソースブックを有効にする
wbThis.Activate
'利用可能なメモリを最大化するためにクリップボードの内容を消去する
Application.CutCopyMode = False
'ソースブックから範囲をコピーする
wbThis.Range（ "A12：M62"）。コピー
'ターゲットブックにデータを貼り付ける
wbTarget.Range（ "A1"）。PasteSpecial
'利用可能なメモリを最大化するためにクリップボードの内容を消去する
Application.CutCopyMode = False
'ターゲットブックを保存します
wbTarget.Save
'ブックを閉じる
wbTarget.Close
'ソースブックを再度アクティブにする
wbThis.Activate
'記憶をクリアする
wbTarget = Nothingを設定します。
wbThis = Nothingを設定します。
終了サブ