ExcelからExcelに対して差し込み印刷をしたい
![](http://cdn2.aprico-media.com/production/imgs/images/000/083/102/original.png?1653105128)
Excelで差し込み印刷を行う際に、別のアプリケーションを使用するのではなく「ExcelからExcel」への差し込み印刷を行いたいと思ったことはありませんか?別のシートのデータを参照して差し込み印刷を行うことができますよ。
複数のシートを使用している場合は、マクロやVLOOKUP関数を使用して差し込み印刷を行ってみましょう。この記事では、ExcelからExcelに対して差し込み印刷を行う方法をご紹介していきます。
ExcelからExcelに対して差し込み印刷を行う方法
それでは、ExcelからExcelに対して差し込み印刷を行う方法を説明します。
マクロを使用して差し込み印刷を行う方法
![「ファイル」タブをクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/092/original.jpg?1653104075)
まずはマクロを使用して差し込み印刷する方法を説明します。マクロを使用するには「開発」タブを有効にしましょう。Excelを起動して、ウィンドウ左上の「ファイル」タブをクリックしましょう。
![「オプション」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/093/original.jpg?1653104126)
![「リボンのユーザー設定」→リボンのユーザー設定の「開発」のチェックボックスを有効にして「OK」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/094/original.jpg?1653104160)
「Excelのオプション」ウィンドウが表示されます。左側メニューの「リボンのユーザー設定」をクリックして「リボンをカスタマイズします。」の「リボンのユーザー設定」の一覧から、「開発」のチェックボックスをクリックして有効にしてから「OK」をクリックしましょう。これで、開発タブが有効になります。
![「Visual Basic」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/095/original.jpg?1653104239)
![「標準モジュール」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/096/original.jpg?1653104275)
![下記のコードを入力して「実行」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/097/original.jpg?1653104323)
Sub Serialnumber_Print() Dim s As Variant Dim Serialnumber As Long With Sheet1 '差し込みたい列の選択 For Each s In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Serialnumber = Serialnumber + 1 With Sheet2 .Range("B2") = Serialnumber .Range("H2") = s.Value '印刷プレビュー .PrintPreview End With Next s End With End Sub
VLOOKUP関数を使用して差し込み印刷を行う方法
![表](http://cdn2.aprico-media.com/production/imgs/images/000/083/098/original.jpg?1653104826)
![B2セルの情報を参照してSheet1からデータを引っ張るための関数を入力](http://cdn2.aprico-media.com/production/imgs/images/000/083/099/original.jpg?1653104882)
![対応したセルの名前を引っ張ってくることができた](http://cdn2.aprico-media.com/production/imgs/images/000/083/100/original.jpg?1653104975)
![「印刷」→「印刷」ボタンをクリック](http://cdn2.aprico-media.com/production/imgs/images/000/083/101/original.jpg?1653105004)