通常であれば、写真・図を貼り付けたい場合はコピーペーストして対応すると思いますが、
貼り付け位置が多い場合や、貼り付けのパターンが多ければコピペでの貼り付けは面倒です。

そこで今回はマクロVBAで変数・配列のように図を格納して好きな位置に

貼り付ける方法を紹介します。
是非参考にしてみてください。それではみていきましょう。

⬛︎忙しい人向けのコピぺ用プログラム

黄色の蛍光ペンの部分をお好みで打ち換えてください。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
　If Not Intersect(TARGET.TopLeftCell, Range("切り取り範囲")) Is Nothing And _
　　Not Intersect(TARGET.BottomRightCell, Range("切り取り範囲")) Is Nothing Then
　　　TARGET.Select False '指定範囲に入っていない写真は除外
　End If
Next TARGET

With Selection
　WideValue = .Width '幅を格納
　HighValue = .Height '高さを格納
　.Copy '対象をコピー
End With　

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "保存するパス" & "\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
　.Chart.Export PhotoName '写真を名前をつけて保存
　.Delete
End With

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  FileName:=PhotoName, _
                          LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("貼り付け位置").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("貼り付け位置").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("貼り付けサイズ").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("貼り付けサイズ").Height) '貼り付け

Kill PhotoName '写真を消す

End Sub

⬛︎プログラムの考え方について

まず結論から言うと配列や変数などに写真・図を格納することは不可能です。
しかし、似たような事をすることは出来ます。

様々な方法があるのかもしれませんが今回紹介する方法は
写真・図を一旦保存して、そのファイル名を変数に書き込み
その変数を用いて指定位置に貼り付けます。

なので手順としては

①指定範囲内にある写真・図を選択する
②写真・図を保存して、そのパスを変数に格納する
③指定位置に貼り付ける
④プログラム終了後は写真・図ファイルを削除する

と言った流れになります。
では実践編をみていきましょう。

⬛︎実践編:写真・図を格納して貼り付ける方法

では①から④の順に見ていきましょう。

・①指定範囲内にある写真・図を選択する

まずは格納したい写真・図を名前をつけて保存したいと思います。
注意点としてVBAで保存できるのは「Chart」となります。
「Chart」はグラフを意味します。

なのでイメージとして「Chart」を作成して
そこに指定した写真・図を貼り付けて写真・図ごと「Chart」を保存する
といった流れです。

ではまず、保存したい写真・図を選択します。
見本の写真は下図の通りです。

今回は指定範囲内にある写真・図を登録してみましょう。

構文はこちらです。

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択

If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then
TARGET.Select False '指定範囲に入っていない写真は除外
End If
Next 
TARGET

今回は見本で「A1からD5」にある写真・図を対象にしました。
なので「Range(“A1:D5”)) Is Nothing」で範囲をしぼっています。

仕組みとして「TopLeftCell」で写真の左上、「BottomRightCell」で写真の右下を検知し、
対象範囲内にあるか確認しています。

その後、範囲内に該当する写真・図については選択した状態を維持するようになります。
実行した結果はこちら。

これで選択は出来ましたが、選択した写真・図を
「Chart」に貼り付ける必要があります。
しかし、通常の状態で「Chart」を生成すると選択した写真・図のサイズとは
異なってしまいます。

そこで現在の写真・図のサイズを格納し、そのサイズに見合った
「Chart」を生成する必要があります。

ではプログラムを見ていきましょう。

Dim WideValue, HighValue

With Selection
WideValue = .Width '幅を格納
HighValue = .Height '高さを格納
.Copy '対象をコピー

End With

現状は対象の写真を選択している状態です。
その選択した写真を対象に「WideValue = .Width」で写真・図の幅を格納し、「HighValue = .Height 」で写真・図の高さを格納します。
さらに貼り付けるため、対象をコピーしています。

では、チャートを作成して、対象の写真を貼り付けてみましょう。
プログラムはこちら

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

まずはチャートの作成の構文はこちらです。

ActiveSheet.ChartObjects.Add(左端からの距離, 上端からの距離, 幅, 高さ).Name = "チャートの名前"

左端からの距離と上端からの距離については今回は写真として保存するだけなので
それぞれ「0」とします。
幅と高さについては、先ほど変数に格納した「WideValue」「HighValue」が該当します。

そして今回はチャートの名前を「Targerpicture」としました。
こちらを２行目のプログラムでアクティブ状態にします。

さらに3行目の「ActiveChart.Paste」でチャートに写真を貼り付けます。
そして最後にチャートの外枠を無くしました。外周に黒い線が残ってもいい場合はこちらは省略してください。

ではこれでChart形式の写真・図ができました。

・②写真・図を保存して、そのパスを変数に格納する

ではChart形式で保存できるようになったので、
指定フォルダに保存&変数にパスを格納していきましょう。

プログラムはこのようになります。

Dim PhotoName As String

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
.Chart.Export PhotoName
.Delete
End With

では仕組みを紹介します。
現在は①でチャート形式にした写真・図を作成している状態です。

まず変数で写真・図を保存する名前をフルパスを含めて決めています。
つまり、フルパスで指名したフォルダ・ファイル名で一旦
写真・図を保存するようになります。

見本では「ローカルディスクC」の「検証ファイル」に保存して、
写真・図名を「貼り付け用写真」としました。
写真・図なので拡張子を「.jpg」としています。

そして「Chart.Export＋先程のフルパス変数」で
写真・図として保存を実行します。

つまり、このフルパスが入った変数「PhotoName」が
画像を貼り付ける変数になります。

ちなみにここまでのプログラムを実行してみましょう。
指定ファイルにファイルが追加されました。

・③指定位置に貼り付ける

では実際に指定位置に貼り付けてみましょう。
まず構文から紹介したいと思います。

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
FileName:=ここにファイル名, _
LinkToFile:=False, _
SaveWithDocument:=TrueかFalse, _
Left:=左端からの貼り付け位置, _
Top:=上端からの貼り付け位置, _
Width:=写真・図の幅, _
Height:=写真・図の高さ)

では構文に当てはめていきましょう。
まず「FileName」は先程のフルパスが格納された変数「PhotoName」になります。

次に「LinkToFile」ですが図をグラフィック ファイルとリンクするかどうかを指定します。
今回は「False」にします。

「SaveWithDocument」については文書を保存するときに図も一緒に保存するかどうかを指定します。
今回は「True」にしておきましょう。

次に貼り付け位置についてです。
ここでは左端からの貼り付け位置が「Left」、上端からの貼り付け位置が「Top」となります。
ここには数値でもいいですが、セルを指定しても構いません。

今回は見本で「E7」に貼り付けたいと思います。

最後に写真のサイズを指定します。
写真の幅は「Width」、高さは「Height」で指定します。

通常のサイズを維持する場合は「-1」を入力します。
もちろん、直接サイズを入力しても構いません。

今回は見本で「E7」のセルのサイズに合わせて貼り付けます。

すべて足したプログラムはこちらです。

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
FileName:=PhotoName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=ActiveSheet.Range("E7").Left, _
Top:=ActiveSheet.Range("E7").Top, _
Width:=ActiveSheet.Range("E7").Width, _
Height:=ActiveSheet.Range("E7").Height)

・④プログラム終了後は写真・図ファイルを削除する

写真・図を貼り付け終わったら最後に元の状態に戻すため
保存した写真・図を削除します。

削除する構文はこちら。

kill フルパス

では当てはめていきましょう。

フルパスは見本では「PhotoName」に格納しているので
「Kill PhotoName」だけで写真・図ファイルを削除できます。

これで一連の動作は完了です。

・プログラムまとめ

では①から④を組み合わせてみます。
結果はこちらです。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
　If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
　　Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then
　　　TARGET.Select False '指定範囲に入っていない写真は除外
　End If
Next TARGET

With Selection
　WideValue = .Width '幅を格納
　HighValue = .Height '高さを格納
　.Copy '対象をコピー
End With　

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
　.Chart.Export PhotoName '写真を名前をつけて保存
　.Delete
End With

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  FileName:=PhotoName, _
                          LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("E7").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("E7").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("E7").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("E7").Height) '貼り付け

Kill PhotoName '写真を消す

End Sub

長いですが、これで写真・図を格納して貼り付けるプログラムができました。
では実践してみましょう。

今回は「A1からD5」内の写真・図を格納して
「E7」に貼り付けます。

実行した結果はこちら。

狙い通り、貼り付けることができていますね。
サイズもセルの大きさに合わせて貼り付けてくれています。

⬛︎応用:見本のプログラム

ここからは先程のプログラムを応用したプログラムの事例を紹介します。

・格納した写真・図をブック内の全てのシートに貼り付ける。

まずは写真・図を格納して、ブック内のシート全ての指定位置に
貼り付けてみましょう。

今回は先頭のシートの「A1からD5」の中の写真・図を
他の全てのシートの「E7」に貼り付けるプログラムを見てみましょう。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String, SheetNo, cycle

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
  If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
     Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then 
     TARGET.Select False '指定範囲に入っていない写真は除外
  End If
Next TARGET

With Selection
  WideValue = .Width '幅を格納
  HighValue = .Height '高さを格納
  .Copy '対象をコピー
End With

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
  .Chart.Export PhotoName '写真を名前をつけて保存
  .Delete
End With

SheetNo = Sheets.Count

For cycle = 2 To SheetNo Step 1
  Sheets(cycle).Activate
  Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
                           FileName:=PhotoName, _
                           LinkToFile:=False, _
                           SaveWithDocument:=True, _
                           Left:=ActiveSheet.Range("E7").Left, _
                           Top:=ActiveSheet.Range("E7").Top, _
                           Width:=ActiveSheet.Range("E7").Width, _
                           Height:=ActiveSheet.Range("E7").Height) '貼り付け
Next cycle

Kill PhotoName '写真を消す

End Sub

「SheetNo」に全体のシート数をカウントして
「For Next」で貼り付けてシート数分貼り付けるようにしています。

通常、シートを繰り返し選択する場合は「For Each 変数 In Worksheets」
を使用しますが、貼り付けるシートを変則的に応用するために
今回はシート番号で対象シートをアクティブにさせています。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

Shapes.AddPicture メソッド (PowerPoint) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
本記事の内容を活用すると、図を変数のように活用することができます。

エクセル内で図を定期的に指定位置に貼り付けたりする際には便利です。
署名の貼り付けなどにも活用できますね！

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

その中でも容量が大きい写真の軽量化について説明したいと思います。

さらに今回はシート・ブック内すべての写真をまとめて
軽量化できるプログラムを紹介しますので是非参考にしてみてください。

それではみていきましょう！

⬛︎こんなことができる！

シート・ブック内の全ての写真を軽量化することができる

⬛︎忙しい人向けのコピぺ用プログラム

・シート内の写真の軽量化

Sub シート内の画像軽量化()

Dim SelectPictures As Picture '対象の写真
Dim LeftPosition As Double, TopPosition As Double '左端・上端からの距離

For Each SelectPictures In ActiveSheet.Pictures
　If TypeName(SelectPictures) <> "OLEObject" Then
　　SelectPictures.Select
　　LeftPosition=SelectPictures.Left
　　TopPosition=SelectPictures.Top
　　Selection.Cut
　　ActiveSheet.PasteSpecial Format:="図(JPEG)"
　　Selection.Left=LeftPosition
　　Selection.Top=TopPosition
　End If
Next

End Sub

・ブック内の写真の軽量化

Sub ブック内の画像軽量化()

Dim SelectPictures As Picture '対象の写真
Dim LeftPosition As Double, TopPosition As Double '左端・上端からの距離
Dim CycleBook As Worksheet '対象のシート

For Each CycleBook In Worksheets 'シートを繰り返し格納
　CycleBook.Activate 'シートをアクティブ
　　For Each SelectPictures In ActiveSheet.Pictures　
　　If　TypeName(SelectPictures)<>"OLEObject"Then
　　　SelectPictures.Select
　　　LeftPosition=SelectPictures.Left
　　　TopPosition=SelectPictures.Top
　　　Selection.Cut
　　　ActiveSheet.PasteSpecial Format:="図(JPEG)"
　　　Selection.Left=LeftPosition
　　　Selection.Top=TopPosition
　　　EndIf
　Next
Next
End Sub

⬛︎写真が容量が大きい理由

まず、プログラムを紹介するにあたり
なぜ、写真の容量が多いか理解しておきましょう。

見本でフリー素材の図を用意しました。

綺麗ですねー！

では図を拡大してみましょう。

図を拡大してみましょう。

拡大しても画質は綺麗ですね。
実はこの現象が容量増加の原因となります。

原理を説明すると、現在のサイズは写真本来のサイズが100％でなく
現在のサイズ以上の画質を持っていることになります。
言い方を変えれば余分な容量を使っているということになります。

なので今回は現在のサイズに合わせて容量を適正にする方法です。
では本題に移りましょう。

⬛︎図を軽量化するプログラム

ではプログラムを紹介します。
先程の説明で容量の増加の原因は余分な容量を写真が抱えている
ことが原因でした。

解決する方法として対象の図を切り取って再度そのサイズで
図として貼り付けます。そうするとそのサイズに合わせた容量で
貼り付けるので、その差ぶんの容量が減る仕組みです。

プログラムの構造を紹介します。

対象の図.Select
Selection.Cut
ActiveSheet.PasteSpecial Format:=“図 (JPEG)”

では説明です。
1行目の「対象の図.Select」では軽量化したい図を選択します。
2行目の「Selection.Cut」では先程選択した図を切り取ります。
3行目の「ActiveSheet.PasteSpecial Format:=“図 (JPEG)”」
では切り取った写真を今のサイズの容量に合わせて貼り付けます。

これで1つの対象の図を軽量化することができます。
後はブックまたはシート内の全ての写真を繰り返し選択して
上記の処理を行えばいいだけです。

では実践編を見てみましょう。

⬛︎対象シート内の写真を軽量化する

ではこれまでの説明した内容をまとめて
シート内の写真をすべて軽量化してみましょう。

まず、シート内の写真を繰り返し選択するプログラムを紹介します。
プログラムはこちらです。

For Each 変数 In ActiveSheet.Pictures

‘ここに処理プログラム

Next

これでシート内の写真を繰り返し変数に入れていきます。

もう一つ課題があります。
それは選択した写真が「ActiveX」でないことを確認しないといけません。

「ActiveX 」とは開発タブの「挿入」にある「ActiveXコントロール」が
該当します。なぜ、ActiveX出ないことを確認する必要があるかというと
「Pictures 」で繰り返し変数に格納してますが、ActiveXも対象となってしまいます。

さらにActiveXでVBAを動かしている人も多いでしょうから
軽量化にするプログラムを実行するとActiveXが図になってしまうということに
なりかねません。

そこでActiveXか判別できるプログラムは下記のようになります。

If TypeName(変数) <> “OLEObject” Then
’ここに処理内容
End If

条件の「OLEObject」とはActiveXを含むので
OLEObjectでないことを条件として処理します。

さらにもう一つ課題があります。

それは切り取った位置と貼り付けた位置が異なることです。
手動で切り取ってみればわかるのですが、貼り付けの位置は現在選択しているセルになります。

そこで、切り取る前に現在の位置を記録しておき
貼り付けた際には記録した位置に戻す必要があります。

プログラムはこちらです。

左端からの写真の距離変数 = 変数.Left
上端からの写真の距離変数 = 変数.Top

‘ここに写真を切り取って貼り付けるプログラム

Selection.Left = 左端からの写真の距離変数
Selection.Top = 上端からの写真の距離変数

こうなります。
左端・上端からの写真の距離を変数に格納しておき、
貼り付け後に写真の位置を元の位置に戻します。

では総まとめです。
これまでの切り取って写真で貼り付ける、シート内の写真を順次選択する、
写真の位置を元に戻すプログラムを一つにします。

結果はこのようになります。

Sub シート内の画像軽量化()

Dim SelectPictures As Picture '対象の写真
Dim LeftPosition As Double, TopPosition As Double '左端・上端からの距離

For Each SelectPictures In ActiveSheet.Pictures
　If TypeName(SelectPictures) <> "OLEObject" Then
　　SelectPictures.Select
　　LeftPosition=SelectPictures.Left
　　TopPosition=SelectPictures.Top
　　Selection.Cut
　　ActiveSheet.PasteSpecial Format:="図(JPEG)"
　　Selection.Left=LeftPosition
　　Selection.Top=TopPosition
　End If
Next

End Sub

これで完成です。
今回は見本で下図のようなシートを用意しました。

シートの容量を見てみましょう。

「3152KB」と、なかなか大きいですね。

これをプログラムを実行するとこのようになりました。

「288KB」と容量が10倍以上小さくなっていますね。

⬛︎対象ブック内の写真を軽量化する

今度はブック内に範囲を広げましょう。
考え方は先程と同様です。

シート内の写真の軽量化の処理を
ブック内にあるシートすべて繰り返し処理をすれば可能です。

ではブック内のシートをアクティブにする繰り返しプログラムを
紹介したいと思います。

Dim 変数　As Worksheet

For Each 変数 In ThisWorkbook.Worksheets

変数.Activate
’ここに処理
Next

これでアクティブブック内のシート全ての処理ができます。

では先ほどのプログラムに追加してみましょう。
このようになります。

Sub ブック内の画像軽量化()

Dim SelectPictures As Picture '対象の写真
Dim LeftPosition As Double, TopPosition As Double '左端・上端からの距離
Dim CycleBook As Worksheet '対象のシート

For Each CycleBook In Worksheets 'シートを繰り返し格納
　CycleBook.Activate 'シートをアクティブ
　　For Each SelectPictures In ActiveSheet.Pictures　
　　If　TypeName(SelectPictures)<>"OLEObject"Then
　　　SelectPictures.Select
　　　LeftPosition=SelectPictures.Left
　　　TopPosition=SelectPictures.Top
　　　Selection.Cut
　　　ActiveSheet.PasteSpecial Format:="図(JPEG)"
　　　Selection.Left=LeftPosition
　　　Selection.Top=TopPosition
　　　EndIf
　Next
Next
End Sub

これで先ほどシート内の写真を軽量化しましたが
ブック単位で軽量化することができます。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが マイクロソフト公式の説明については下記のリンクを参照してください。☟

Worksheet.PasteSpecial メソッド (Excel) | Microsoft Docs

⬛︎注意点

今回紹介した方法は、現在の写真のサイズに合わせて
画質を揃える方法でした。

しかし言い換えると、これまでは拡大しても画質が綺麗だったにも
かかわらず、プログラム実行後は拡大すると画質が悪くなります。

写真を使いまわしたい場合は別のバックアップ等取っておく
必要がありますので、実行の際は気をつけてください。

⬛︎まとめ

いかがだったでしょうか。
エクセルで図を貼り付ける機会がたくさんある方は
ファイルが重くなってないか確認してみてください。

重ければ入力や動作が遅くなる上
添付して送信する際にも時間がかかるなど
いいことはありません。

是非参考にしてみてください
それでは次回の記事でお会いしましょう。

コピペまとめ記事は下記リンクをご参照ください。

【マクロVBA㉟】コピー&ペースト全集！セル・指定範囲・行・列のコピーと様々な貼り付け方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は変数を用いた行・列のコピー方法を紹介します。
変数を使用するとなると少し工夫が必要になってきます。

通常の行・列のコピーについては下記の記事を参考にしてみてください。

【マクロVBA】行・列のコピー！１つ・複数の行・列のコピーをして形式を指定して貼り付ける方法とは ► 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

⬛︎こんなことができるようになる！

・変数を使用して行・複数行をコピーすることができる
・変数を使用して列・複数列をコピーすることができる

⬛︎忙しい向けのコピペ用のプログラム

・複数行のコピー

Sub 変数を用いて複数の行数をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 5 'コピーしたい終わり行数を入力する
Rows(N1 & ":" & N2).Copy

End Sub

・複数列のコピー

Sub 変数を用いて複数の列をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 10 'コピーしたい終わり行数を入力する
Range(Columns(N1), Columns(N2)).Copy

End Sub

⬛︎構文の説明

・単体の行・列のコピー

行:Rows(行番号).Copy
列:Columns(列番号).Copy または　　Columns(“列英字”).Copy

・複数の行・列のコピー

行:Rows(開始行番号:終わり行番号).Copy
列:Range(Columns(開始列番号),Columns(終わり列番号)).Copy

⬛︎変数を使用した行のコピー

・１つの行のコピー

まずは1行のコピーをする方法を紹介します。
簡単なプログラムなので見本から見ていきましょう。

Sub 変数の行数をコピーする()

Dim N As Long
N = 6 'コピーしたい行数を入力する
Rows(N).Copy

End Sub

変数Nに数値を格納して「Rows(N)」のように当てはめています。
これで変数Nに格納した数値の行番号のコピーが可能となります。
見本ではN＝6なので6行目がコピーされます。

それでは実行してみましょう。
結果はこのようになります。

6行目がコピーできましたね。

・複数の行をコピー

今度は複数行のコピーを見ていきましょう。
こちらは一工夫必要になります。

まず通常の複数行のコピーの例を見ていきましょう。
Rows(3:5).Cooy

今回の見本は3から5行目のコピーとなります。

では変数を用いた場合はどうなるのでしょうか。
構文はこちらです。

Rows(開始行番号:終わり行番号).Copy

今回は見本で「開始行番号」を「N1」、「終わり行番号」を「N2」とします。

「開始行番号:終わり行番号」の形にしないといけないのですが、
本来数値の入る行番号に変数の文字列が入力されます。
すると区切りの「:」が検出されなくなるため、「&」と「”」で分ける必要があります。

結果としてこのようになります。

Rows(N1 & “:” & N2).Copy

ちなみに「&」と「”」を省略すると「N1:N2」という文字列で検出されるため、エラーとなります。

では「3行目から５行目」をコピーするプログラムを紹介します。

Sub 変数を用いて複数の行数をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 5 'コピーしたい終わり行数を入力する
Rows(N1 & ":" & N2).Copy
End Sub

では実際に実行してみましょう。
結果はこのようになります。

狙い通り3から5行目をコピーすることができました。

⬛︎変数を使用した列のコピー

これまでは行のコピーでしたが、今度は列のコピー方法について紹介します。
まず前提条件として、列のはAやCといった「英字」で表されます。

しかし英字は計算できない上に文字列なので、VBAには不向きになります。
なので今回は列番号を元に説明していきます。
列番号の考え方として「A」は「1」、「B」は「2」など英字が進むにつれて数値が増える仕組みになります。

しかし列番号を数えるのは大変ですよね。
そこで簡単に列番号を求める方法を紹介します。

まず、求めたい列を選択します。
ここでは「DA列」を見本にしてみましょう。

この状態で「Ctrl」+「Shift」を押したまま「←」を押します。
すると列番号が表示されます。

これで「DA列」の列番号は「105」番目ということがわかりました。

・1つの列のコピー

まず、1列をコピーする方法についてみていきましょう。
こちらも先にプログラムから見ていきましょう。

Sub 変数の列をコピーする()

Dim N As Long
N = 6 'コピーしたい行数を入力する
Columns(N).Copy

End Sub

列のコピーの部分は「N」に当てはまります。
「Columns(N)」となっており、N=6を読み取っているので6列目をコピーすることになります。
Aから数えると6つ目はF列なのでF列をコピーしているプログラムになりますね。

では実行してみましょう。
結果はこのようになりました。

F列をコピーすることができました。

・複数の列のコピー

ここが今回の山場になります。
変数を用いた複数列のコピーを行ってみましょう。

まず、例として「C列からJ列」をコピーしてみたいと思います。
では通常のプログラムを見てみましょう。

Columns(“C:J“).Copy

簡単ですね。「Columns(“C:J”)」でC列からJ列を指示してコピーしています。
しかし今回は変数を使用します。
さらに冒頭で説明した通り、汎用性を考えて列番号で指示してみましょう。

では構文を紹介します。

Range(Columns(開始列番号),Columns(終わり列番号)).Copy

こちらの開始列番号と終わり列番号に変数を組み込むだけです。
今回は見本で「開始列番号」を「N1」、「終わり列番号」を「N2」とします。
それではプログラムを見ていきましょう。

Sub 変数を用いて複数の列をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 10 'コピーしたい終わり行数を入力する
Range(Columns(N1), Columns(N2)).Copy

End Sub

C列はAから数えて「3」番目なので開始列番号には「3」
J列はAから数えて「10」番目なので終わり列番号には「10」が入ります。

では実行してみましょう。
結果はこのようになりました。

狙い通りC列からJ列までコピー出来ていますね。

⬛︎貼り付けの形式とプログラム

これまではコピーの方法についてまとめました。
そのコピーした行・列を貼り付けるのですが、値のみや書式など
様々な貼り付け方法が存在します。

そこで各貼り付け方法を見ていきましょう。

貼り付けの表を参照してください。

貼り付け位置.PasteSpecial Paste:=貼り付け内容,Operation:=演算内容,SkipBlanks:=True Or False,Transpose:=True Or False)
※PasteSpecial以降は省略可

各貼り付けのオプションを下の表にまとめました。

では例を見てみましょう。

数値のみ貼り付けするときは…
貼り付け位置.PasteSpecial Paste:=xlPasteValues

コメントの貼り付けと行列を入れ替えるときは…
貼り付け位置.PasteSpecial Paste:=xlpasteComments, Transpose:=True

それぞれの貼り付け方法の意味は通常の貼り付けの記事でまとめてますので、下記リンクにてご覧ください。

貼り付けの記事についてはこちらから☟

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが マイクロソフト公式の説明については下記のリンクを参照してください。☟

Copy メソッド (Visual Basic for Applications) | Microsoft Docs

⬛︎まとめ

いかがだったでしょうか。
変数を用いて、行・列を選択するのには少し工夫が必要ですね。

しかし慣れてしまえば簡単に行・列単位でコピーできます。
さらに今回紹介した数値での行・列の選択は計算とも組み合わせることが
可能なので是非活用してみてください。

それでは次回の記事でお会いしましょう。

通常の作業で使用するコピペをVBAでも行えるようになるので是非参考にしてみて下さい。

それでは見ていきましょう。

⬛︎コピーする

まずはコピーについてです。

コピーの構造はシンプルで

コピーしたい範囲.Copy

で完結します。

では、それぞれの場面でのコピー方法を見ていきましょう。

・指定セルのコピーをする

まず、1つの指定したセルをコピーする方法を紹介します。

セルの選択はRangeまたはCells でしたよね。
では「コピーしたい範囲.Copy」に当てはめてみましょう。

セル番地B5であれば

Range(“B5”).CopyまたはCells(5, 2).Copyになります。

では下図をご覧ください。

「C3」に入力されている文字をコピーしてみましょう。

プログラムはこのようになります。

Sub 指定セルのコピー()

Cells(3, 3).Copy

End Sub

実行した結果を見てみましょう。

コピーした部分が点線の枠で囲われており、指定位置をコピーした事がわかりますね。

・複数範囲をコピーする

次に複数範囲をコピーする方法についてです。
こちらは先程とあまり変わりません。

例でC5からD8までをコピーするプログラムを見てみましょう。

Sub 複数範囲のコピー()

Range(“C5:D8“).Copy

End Sub

実行した結果はこのようになります。

範囲指定した部分が点線の枠で囲われており、コピーした事がわかりますね。

・行のコピーをする

今度は行のコピーについてです。
行はRows(コピーしたい行数).Copyで選択します。

では見本を見てみましょう。

今回は5行目をコピーしてみましょう。

プログラムはこのようになります。

Sub 複数範囲のコピー()

Rows(5).Copy

End Sub

実行した結果はこちらです。

5行目が点線の枠で囲われており、コピーした事がわかりますね

・列のコピーをする

最後に列のコピーについてです。
列はColumns(コピーしたい列数).Copyで選択します。

では見本を見てみましょう。

今回は4列目のD列をコピーしてみましょう。

プログラムはこのようになります。

Sub 複数範囲のコピー()

Columns(4).Copy

End Sub

実行した結果はこちらです。

4列目のD列が点線の枠で囲われており、コピーした事がわかりますね

⬛︎コピーした結果を貼り付ける

先ほどはコピーの方法を紹介しました。
今度はコピーした後の貼り付けの方法を紹介します。

貼り付けの構造は下記の通りです。

貼り付け位置.PasteSpecial Paste:=貼り付け内容,Operation:=演算内容,SkipBlanks:=True Or False,Transpose:=True Or False)
※PasteSpecial以降は省略可

各貼り付けのオプションを下の表にまとめました。

では例を見てみましょう。

数値のみ貼り付けするときは…
貼り付け位置.PasteSpecial Paste:=xlPasteValues

コメントの貼り付けと行列を入れ替えるときは…
貼り付け位置.PasteSpecial Paste:=xlpasteComments, Transpose:=True

それぞれの貼り付け方法の意味は通常の貼り付けの記事でまとめてますので、下記リンクにてご覧ください。

貼り付けの記事についてはこちらから☟

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

では見本を見てみましょう。

例でC5からD8までのデータをコピーして貼り付けたいと思います。

F5には数値のみ貼り付けをしますが、I5にはすべて貼り付け＆行列の入れ替えで貼り付けたいと思います。

プログラムはこのようになります。

Sub コピーペースト()

Range(“C5:D8“).Copy

Range(“F5“).PasteSpecial Paste:=xlPasteValues ‘数値のみ貼り付け

Range(“I5“).PasteSpecial Paste:=xlPasteAll, Transpose:=True ‘全て貼り付け　＆　行列の入れ替え

End Sub

実行した結果はこちら。

狙い通り貼り付ける事ができました。

⬛︎コピー&ペーストを複数回行う場合

コピー&ペーストはとても使用頻度が高いですが、複数回行う場合は少し手間ですよね。

そんな時は配列の仕組みが役立ちます。

イメージで言うと、データをまとめて記録して一気に貼り付ける感じです。

この内容は別の記事で紹介してますので、参考にしてみて下さい。

【マクロVBA】複数の繰り返しのコピー&ペーストが面倒くさい!?高速で一括で貼り付けできる配列とは ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Copy メソッド (Excel) | Microsoft Learn

Range.PasteSpecial メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
よく使うコピペが自動で行えるのはとても便利ですよね。
コピペの位置が決まっており、毎回人が作業している場合は自動化もできそうですね。

是非、今回の記事を参考にして活用してみてください。

それでは次回の記事でお会いしましょう。

メニューから貼り付けを見ても様々な貼り付けがあることがわかります。

それではそれぞれの貼り付けの特徴を見ていきましょう。

前回の切り取り・コピー・貼り付けの基礎知識はこちら☟

【切り取り・コピー・貼り付け】作業方法の基礎知識と特徴・よくあるエラーについて ► 独学エクセル塾 (dokugakuexcel.com)

■様々な貼り付け方法

・貼り付け

こちらは通常の貼り付けになります。
一見すべて貼り付けつように見えますが、貼り付けの対象を下記に示します。

①数式　　 　　②値　　 　　 　③書式
④コメント 　  ⑤入力規則　    ⑥罫線　

ここでの注意点として
列幅は反映されません。

見本で下記のシートをコピーしてみましょう。

結果はこのようになります。

列幅以外はコピーされていますね。

・数式

こちらは文字通り数式を貼り付けます。
その他のセルの書式や枠線等は貼り付け対象外になります。

ちなみに文字で入力されているセルは文字のまま貼り付けされます。

それでは数式で張り付けた場合を見てみましょう。

文字・数値のみ貼り付けされているように見えますね。
しかし8行目は平均値をAVERAGE関数で計算しているので見てみましょう。

数式は貼り付けられていますね。
ここで注意点ですが絶対参照にしていないと参照先は貼り付け位置の行列分スライドします。

・数式と数値の書式

こちらは数式と数値の書式を貼り付けします。
下図を見本に説明します。

ちなみに時刻データは「時刻」で設定されています。

こちらを比較用で「数式」で貼り付けた場合と「数式と数値の書式」で貼り付けた場合を見てみましょう。

数式で張り付けた場合はこちら

数式と数値の書式で貼り付けた場合はこちら

違いが分かったでしょうか。
数式と数値の書式で張り付けた場合は表示の書式も貼り付けてくれます。
なので数式では「0.7668」となるのに対し「18：24：12」と元の書式を維持して貼り付けることができます。

・元の書式を保持

こちらに関しては「貼り付け」とほとんど変わらないため割愛します。

・罫線なし

こちらは罫線を上書きしたくない場合に使用できます。
それ以外の数式や文字・数値、書式などは切り取り・コピー元と同様に
貼り付けることができます。

見本で見てみましょう。

数式やセルの塗りつぶし・データバー等の書式は貼り付けてますが
罫線は貼り付けの対象に含まれていませんね。

罫線を固定してその他を貼り付けしたい場合は最適な手法です。

・列の幅を保持

こちらは通常の貼り付けに列の幅も合わせて貼り付けてくれます。
実際に見本を見てみましょう。

これまでの貼り付けとは異なり、参照元のB列と参照先のG列が同じ列幅になっています。
さらに数式・数値・書式等も貼り付けてくれていますね。

・行列を入れ替える

こちらは少し変わり種の貼り付けです。
しかし機能は優秀でよく使用されます。

こちらも先に貼り付け結果を見てみましょう。

ご覧の通り行と列が入れ替わっています。
かみ砕いて説明すると縦に並んだセルを横に並び替えるという貼り付け方法です。

さらに数式・数値・書式等も貼り付けてくれていますね。

・値

こちらはとてもよく使用される貼り付け方法です。

個人的にもよく使用するのでマクロVBAでプログラムを作成して

ショートカットキーを登録しています。

貼り付け方法は文字通り「値」のみの貼り付けとなります。
メリットとしては計算式を切り取り・コピーして「値」で貼り付けると、結果のみが貼り付けられます。
では見本を見てみましょう。

書式や数式は貼り付けておらず、数値・文字のみの貼り付けとなっています。
平均値を求めている数式を貼り付け前と貼り付け後で比較してみましょう。

AVERAGE関数で算出していたセルが貼り付け後は結果のみが貼り付けられています。

・値と数値の書式

こちらは「数式と数値の書式」で説明した内容の
数式が値になった使用です。

では下図の数式を「値」として貼り付けた結果と「値と数値の書式」で貼り付けた結果を比較してみましょう。

値で貼り付けた値

値と数値の書式で貼り付けた値

値と数値の書式で貼り付けた方は表示の書式が日時で貼り付けてくれていますね。

・値と元の書式

こちらは数式は貼り付けずに、その他の数値や文字、書式を貼り付ける機能です。
書式も貼りつけるので塗りつぶしや罫線も貼り付けます。

数式のみ貼り付けないイメージですね。

・書式設定

こちらは文字通り書式設定のみ貼り付けます。
では見本を見てみましょう。

塗りつぶしや罫線などの書式が貼り付けていますね。
では数値が入っていたセルに数値を入力してみましょう。

条件付き書式も貼り付けの対象になっていますね。

・リンク貼り付け

こちらは書式や数式・文字は貼り付けずに
参照元のセルを「＝」で表示する数式を貼り付ける機能です。

こちらも見本を見てみましょう。

一見、値のみ貼り付けしているみたいですよね。
では貼り付け先の内容を見てみましょう。

単純に参照元を「＝」で参照しているだけですね。

・図

こちらは切り取り・コピーした内容を
図で貼り付けます。

なので下図のように小さくすることも可能になります。
もちろん図になってますので内容の変更はできません。

・リンクされた図

こちらは「図」で貼り付ける内容に元データとリンク機能を持たせた貼り付けになります。
つまり、図自体のデータの変更は不可能ですがコピー元の数値や書式が変われば
「リンクされた図」で貼り付けた図も追従して変わります。

では見本を見てみましょう。
リンクされた図で貼り付けました。

では元データの「B2:E8」の内容を変更してみましょう。
するとこのようになります。

コピー元の変更に合わせてリンクされた図も変更されました。

■形式を選択して貼り付け

これまで説明したメニューの貼り付け以外でも
貼り付け方法を選択して貼り付けをする方法もあります。

たとえは「列の幅」と「値のみ」貼り付けしたい場合があったとします。
しかしメニューにはそのような貼り付け方法はありません。

その際は「形式を選択して貼り付け」で指定した貼り付けを選択できます。

形式を選択して貼り付けは貼り付けのメニューの一番下に項目があります。

するとこのような画面が出てくると思います。

では例で「列の幅」と「値のみ」で貼り付けしましょう。
その場合は「列幅」「値」の項目にチェックを入れて「OK」を押すと対応できます。

貼り付けメニューにない貼り付けを行う際は活用してみてください。

■演算して貼り付け

こちらは貼り付けに演算機能を追加します。
一気に計算する際にはとても便利です。

では下図の見本を見てみましょう。

かける数値を「5」として
乗算して「C6:F8」に貼り付けてみましょう。

まず「F3」をコピーしてください。
“その後「C6:F8」を選択して「形式を選択して貼り付け」の画面を表示します。
“

そして「演算」の項目の「乗算」にチェックを入れて「OK」を押してみてください。

結果を見てみましょう。

選択した範囲にすべて「5」をかけることができました。
足し算なら「加算」にチェック、割り算なら「除算」にチェックを入れると計算可能です。

■まとめ

いかがだったでしょうか。

様々な貼り付けのオプションについて説明しましたが

演算まで行えるのは便利ですよね。

ぜひ貼り付けを身に着けて様々な場面に使い分けてください。

それでは次回の記事でお会いしましょう。

基本的な貼り付け・数値のみ貼り付けのほかに
加算・乗算などの機能もあり様々なことが可能になります

使用する機会も多く、とても便利な機能なのでぜひ参考にしてみてください。

それでは見ていきましょう。

■切り取りについて

まずは切り取りについて説明します。
こちらは入力されてある文字・数値のセルを切り取って
他のセルに移動する機能です。

まず切り取りたい範囲を選択します。
そして切り取る方法は何通りか方法があるのでそれぞれ説明します。

・右クリックからメニューで切り取る

切り取りたいセルを選択した状態で右クリックを押してください。
すると「切り取り」という項目があるので押してみてください。

すると選択したセルはこのようになります。

選択したセルはこのように点線の枠で囲まれました。
これで切り取りは完了した状態です。

・ショートカットキーを使用して切り取る

こちらはとても簡単なので是非覚えてください。

切り取りたいセルを選択するところまでは一緒です。
その後ショートカットキーを押せば切り取りができます。

ショートカットキーは「Ctrl + X 」となっています。

「Ctrl + X 」を押すだけで切り取れるのでとても便利ですね。

・ツールバーから切り取る

ツールバーからでも切り取りは可能です。
「ホーム」を押して「切り取り」の項目があるので
こちらを押してもらえば切り取りは可能です。

■コピーについて

今度はコピーについてです。

こちらは切り取りとは異なり、別のセルに張り付けても
コピー元は消えることがありません。

こちらもまずコピーしたい範囲を選択します。
コピー方法も何通りか方法があるのでそれぞれ説明します。

・右クリックからメニューでコピーする

コピーしたいセルを選択した状態で右クリックを押してください。
すると「コピー」という項目があるので押してみてください。

すると選択したセルはこのようになります。

切り取り同様、選択したセルはこのように点線の枠で囲まれました。
これでコピーは完了した状態です。

・ショートカットキーを使用して切り取る

こちらも同様、とても簡単なので是非覚えてください。

コピーしたいセルを選択するところまでは一緒です。
その後ショートカットキーを押せば切り取りができます。

ショートカットキーは「Ctrl + C 」となっています。

「Ctrl + C 」を押すだけでコピーできるのでとても便利ですね。

・ツールバーから切り取る

ツールバーからでもコピーは可能です。
「ホーム」を押して「コピー」の項目があるので
こちらを押してもらえば切り取りは可能です。

■貼り付けについて

先ほどまで「切り取り」「コピー」について学んできましたが
貼り付けについて見てみましょう。

今回は通常の貼り付けを見ていきましょう。

こちらもメニューやショートカットキーなどあるので紹介します。

・右クリックからメニューで貼り付けする

貼り付け先を選択した状態で右クリックを押してください。
すると「貼り付け」という項目があるので押してみてください。

貼り付けには様々なオプションがありますので別の記事で説明します。

ちなみに切り取り・コピーの違いを下記に示します。
切り取り・コピー元は「B2」で貼り付け先は「Ｄ2」で行っています。

切り取りについては参照元の「Ｂ2」が無くなっているのに対し、

コピーは参照元が残っているのが確認できます。

・ショートカットキーを使用して切り取る

貼り付けはショートカットキーでも行えます。

貼り付け先のセルを選択します。
その後ショートカットキーを押せば貼り付けができます。

ショートカットキーは「Ctrl + V 」となっています。

・ツールバーから貼り付ける

ツールバーからでも貼り付けは可能です。
「ホーム」を押して「貼り付け」の項目があるので
こちらを押してもらえば貼り付けが可能です。

■よくあるエラーと対処法・特徴

では、切り取り・コピー・貼り付けを

使用して発生するエラーとそれに対する対処法、特徴を説明します。

・参照セルが参照先に合わせて移動する

こちらは切り取り・コピー・貼り付けの特徴になります。

下図をご覧ください。

左側が参照元で、右が参照元をコピーして貼り付けたものになってます。

それぞれ５教科の平均値を求めています。

参照前の数式はこのようになってます。

「N18からN22」の平均値を求めています。

では貼り付け先の数式を見てみましょう。

参照元との移動分、数式がズレて「S18からS22」になってますね。

もしも、数式の参照元がズレてほしく場合は

F4キーで「AVERAGE($N$18:$N$22)」というように絶対参照を活用してください。

・結合セルへの貼り付け

下図のシートをご覧ください。

参照元を結合セルに「値のみ」で貼り付けてみます。

このようにエラーが発生しました。

結合セルに「値のみ」で貼り付ける場合は

参照元のセルと参照先のセルの結合数が同じでなければなりません。

つまり見本で説明すると「２列と３行」で結合されたセルに 「値のみ」貼り付けする場合には

コピー元も 「２列と３行」で結合されたセル でなければなりません。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

数式を移動、コピーする – Excel (microsoft.com)

■まとめ

いかがだったでしょうか。

切り取り・コピー・貼り付けはエクセルを使用する中で必要不可欠な技術になります。

さらに貼り付け方法も様々なオプションがあるので是非参考にしてみてください。

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。