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

そこで今回はマクロ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

⬛︎まとめ

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

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

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

しかし「data(5)」のように複数の配列の中から数値・文字を入力・出力するには
悩まれる方も多いのではないでしょうか。

そこで今回は複数の2次配列内の入力・出力方法について紹介したいと思います。
それでは見ていきましょう。

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

・複数の２次配列内の指定位置・セルの文字数値を入力・出力できるようになる

⬛︎通常の2次配列内の指定位置・セルの文字を入出力する

まず初めに通常の2次配列内の指定した位置・セルから文字・数値を出力、または入力してみましょう。
見本で以下のシートを用意しました。

内容としては「B3からE5」までを配列に格納して
配列内に入力したのち、「G3からJ5」に貼り付けます。

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

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)

Range(“G3:J5”) = Data

End Sub

実行した結果こちら。

上手く配列に格納して、貼り付けもできています。
では配列内の指定位置に数値を入力するプログラムを作成していきましょう。

例えば3行目の５列目にあたる、「E3」は「cells(3,5)」ですが、同じ要領で
2次配列に格納した3行目の５列目は「変数名（3,5）」となります。

では再度見本を見ていきましょう。
「B3からE5」を配列に格納して配列内の2行目の3行目に「123」を入力し、
「G3からJ5」に格納した配列を出力します。

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

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)
Data(2, 3) = 123

Range(“G3:J5”) = Data

End Sub

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

格納した配列に変数に文字・数値を入力して、その配列を
別のセルに貼り付けることができるようになりました。

こちらの方法は処理の高速化にも応用できます。
例えばセル内の文字数値の計算をする際に計算する回数が多ければ
処理速度は遅くなってしまいます。

そこで計算したい数値を配列に格納して
配列内で計算させて、最後にセルに出力することで、
処理速度はとても速くなります。

詳しい方法については下記リンクに貼り付けてますので是非参考にしてみてください。

【マクロVBA知識 高速化②】あまり知られていない？大量データで処理が遅いマクロVBAを高速化 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎連続した2次配列内の指定位置・セルに入力・出力をする方法

では連続した2次配列の方法を見てみましょう。
例えば「N(5)」のようにNという配列を5つ活用することができます。

例を見ていきましょう。

「B2からE3」「B5からE6」「B8からE9」「B11からE12」「B14からE15」を
Nという配列に格納してみましょう。

そして出力したい配列を変数「Number」で指定したいとします。
プログラムはこのようになります。

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 2 ‘表示したい配列番号を入力

　

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

　

Range(“G8:J9”) = N(Number)

End Sub

今回は変数「Number」を2で実行してみましょう。
結果はこのようになります。

N（2）の配列を貼り付けることができました。
さらに「number」を4で実行すると、、、

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 4 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

Range(“G8:J9”) = N(Number)

End Sub

N（4）の配列を貼り付けることができました。

では本題です。
複数の配列の中の位置・セルに入力・出力をしてみましょう。

１つの配列だと「変数（行数,列数）」でしたね。
複数の配列の場合は「変数（配列数）（行数,列数）」となります。

では実際にプログラムにて確認していきましょう。
先ほどの見本を活用し、N（Number）の1行目の３列目に「456」を入力して
配列N（Number）をG8からJ9に貼り付けましょう。

今回はN(3)の配列を貼り付けたいと思います。

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

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 3 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

N(Number)(1, 3) = 456

Range(“G8:J9”) = N(Number)

End Sub

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

複数の配列内の指定した位置にも数値を格納できていますね。
もちろん計算させることも可能です。

⬛︎まとめ

いかがだったでしょうか。
2次配列は複数のセルを格納できたり、配列の数も変えれたりと、とても便利です。

しかし初心者のかたは慣れるまで習得しにくく
できることも十分に理解するまで時間がかかるように思います。

是非配列の知識を身につけて
活用してみてください。

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

そこで複数コピー&ペーストしたい場合は1つコピーして貼り付け…1つコピーして貼り付け…
という動作をコピー&ペーストしたい回数繰り返さないといけません。

さらにシートをまたぐ際には動作時間も遅くなりますし
プログラムも長文になってしまいます。

そこで今回は配列を使用して配列に情報を蓄積していき
貼り付け位置にまとめてペーストする方法について紹介したいとします。

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

■複数のコピー&ペーストの問題点

まず解決策を紹介する前に比較対象として
下図の見本を用意しました。

シート名「Befor」の数値1～7をシート名「After」に貼り付けようとします。
ではコピー&ペーストを使用したプログラムを見てみましょう。

Sub BeforからAfterにコピーペースト()

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“B4:B8”).Copy ‘数値1をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“B4”).PasteSpecial xlPasteValues ‘数値1を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“D11:D15”).Copy ‘数値2をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“C4”).PasteSpecial xlPasteValues ‘数値2を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“G8:G12”).Copy ‘数値3をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“D4”).PasteSpecial xlPasteValues ‘数値3を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“G17:G21”).Copy ‘数値4をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“E4”).PasteSpecial xlPasteValues ‘数値4を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“I8:I12”).Copy ‘数値5をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“F4”).PasteSpecial xlPasteValues ‘数値5を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“J17:J21”).Copy ‘数値6をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“G4”).PasteSpecial xlPasteValues ‘数値6を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“L9:L13”).Copy ‘数値7をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“H4”).PasteSpecial xlPasteValues ‘数値7を値のみペースト

End Sub

長いですね。

実行結果は下図の通りです。

コピー元のシートとペースト先のシートが異なるため
シートを毎回アクティブにしないといけないという悪さがあります。

この長く見にくいプログラムを配列を使用することで簡潔にすることができます。

■配列に格納して貼り付けする

では本題の配列を使用して貼り付けを行いたいと思います。
配列なので変数は「Variant型」になります。

変数についての記事はこちらから☟

【VBA知識 6】変数とは?変数の一覧と意味・変数の宣言をする ► 独学エクセル塾 (dokugakuexcel.com)

今回は見本で「A」というVariant型の変数を使用したいと思います。
ではプログラムから見てみましょう。

Sub BeforからAfterに配列を使用してコピーペースト()

Dim A(7) As Variant

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ

A(1) = Range(“B4:B8”) ‘数値1を格納
A(2) = Range(“D11:D15”) ‘数値2を格納
A(3) = Range(“G8:G12”) ‘数値3を格納
A(4) = Range(“G17:G21”) ‘数値4を格納
A(5) = Range(“I8:I12”) ‘数値5を格納
A(6) = Range(“J17:J21”) ‘数値6を格納
A(7) = Range(“L9:L13”) ‘数値7を格納

Worksheets(“After”).Activate ‘シートAfterをアクティブ

Range(“B4:B8”) = A(1) ‘数値1を貼り付け
Range(“C4:C8”) = A(2) ‘数値2を貼り付け
Range(“D4:D8”) = A(3) ‘数値3を貼り付け
Range(“E4:E8”) = A(4) ‘数値4を貼り付け
Range(“F4:F8”) = A(5) ‘数値5を貼り付け
Range(“G4:G8”) = A(6) ‘数値6を貼り付け
Range(“H4:H8”) = A(7) ‘数値7を貼り付け

End Sub

いかがでしょうか。
すっきりしましたね。

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

無事、データを貼り付けすることができました。
では仕組みを解説します。

Dim A(7) As Variant
こちらで配列のAという変数が（7）で7つあることを宣言します。

A(1) = Range(“B4:B8”) ‘数値1を格納
・・・
A(7) = Range(“L9:L13”) ‘数値7を格納

A(1)から順にA(7)まで数値1から7を格納していきます。

Range(“B4:B8”) = A(1) ‘数値1を貼り付け
・・・
Range(“H4:H8”) = A(7) ‘数値7を貼り付け

ここで指定した位置にA(1)からA(7)まで順番に出力を行います。

コピー&ペーストを繰り返していた作業が楽になりましたね。
さらにFor Nextを使用することも可能です。

For Nextについてはこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

Sub BeforからAfterに配列を使用してコピー&ペースト()

Dim A(7) As Variant, B As Long

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ

A(1) = Range(“B4:B8”) ‘数値1を格納
A(2) = Range(“D11:D15”) ‘数値2を格納
A(3) = Range(“G8:G12”) ‘数値3を格納
A(4) = Range(“G17:G21”) ‘数値4を格納
A(5) = Range(“I8:I12”) ‘数値5を格納
A(6) = Range(“J17:J21”) ‘数値6を格納
A(7) = Range(“L9:L13”) ‘数値7を格納

Worksheets(“After”).Activate ‘シートAfterをアクティブ

For B = 1 To 7 Step 1
Range(Cells(4, B + 1), Cells(8, B + 1)) = A(B) ‘数値1を貼り付け
Next B

End Sub

とてもすっきりしましたね。

■まとめ

いかがだったでしょうか。
繰り返し行っていたコピペが配列を使用することで
簡潔にまとめることができました。

ぜひ配列を使用して文字の格納から貼り付けを行ってみてください。

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

【マクロVBA知識 28】指定した位置まで実行する!ブレークポイント・カーソル行の前まで実行とは ► 独学エクセル塾 (dokugakuexcel.com)

今回はデバッグ操作で役立つ変数の確認・変更、計算結果の出力や
プログラムの実行ができるイミディエイトウインドウについて紹介したいとします。

特に変数の確認や配列内のデータ確認はとても便利なのでぜひ身に着けてみてください。

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

■イミディエイトウインドウの表示方法について

まず、イミディエイトウインドウの表示方法について紹介します。
イミディエイトウインドウは通常は隠れていますが、設定して表示することで
初めて使用することができます。

表示する方法は2種類あります。

①ショートカットキーを使用する
②表示メニューから表示する

では詳しく見ていきましょう。

・①ショートカットキーを使用する

まずはショートカットキーを使用する方法についてです。
ショートカットキーは手間が少なくとても便利なのでおすすめです。

イミディエイトウインドウを表示するショートカットキーは「Ctrl + G 」になります。
では押してみましょう。

イミディエイトウインドウを表示することができました。

・②表示メニューから表示する

次は表示メニューからイミディエイトウインドウを表示する方法について紹介します。
まず「表示」のメニューを選択してください。

そこから「イミディエイトウインドウ」を押せばイミディエイトウインドウを表示することができます。

では実際にイミディエイトウインドウを活用してみましょう。

■イミディエイトウインドウを活用する

ではイミディエイトウインドウを用いて実際にどんなことができるのか紹介したいとします。

・変数を確認・変更する

まず変数の確認について紹介します。
例としてFor Nextの見本を用意しました。

内容としてB列・C列の数値の和をE列に表示するといった内容です。

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

Sub 数値1と2の和2()

Dim A As Long

For A = 3 To 7 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

プログラムの内容としてはAは3から7まで繰り返す処理となってます。
しかしデバック途中に変数はどのくらい進んだのかきになりますよね。

では下記の処理まで進めた状態で変数の確認をしてみます。

ではイミディエイトウインドウを活用しましょう。
使用方法として「？」の後に知りたい変数を打ち込みます。
今回は変数Aを知りたいので「?A」となりますね。

この状態で「Enter」を押してみましょう。

「5」という結果が出力されました。
処理はA=3行目から始まっって5行目で止まっているので「5」が出力された仕組みです。

変数の変更については下記記事でまとめてますので是非参考にしてみてください☟

【マクロVBAデバッグ】繰り返し処理の変数を任意の数値・途中から実行する方法について ► 独学エクセル塾 (dokugakuexcel.com)

・セルの数値・文字を確認する

次にセルの内容の確認方法を見てみましょう。
先ほどの見本を使用します。

見本で「E3」の結果を知りたいとします。
使用方法として「？」の後に知りたい変数を打ち込みます。
今回はE3の番地の数値・文字を知りたいので「?Cells(3,5)」となりますね。
「?Range(“E3”)」でも同じ意味です。

この状態で「Enter」を押してみましょう。

E3に入力されてある「46」が出力されました。

さらに配列内の数値・文字も確認してみましょう。

・配列内の数値・文字を確認する

次に配列内の数値・文字を確認してみましょう。
今回はB3からC7を変数Aという配列内に格納しています。

Sub 配列内の数値を確認()

Dim A As Variant

A = Range(“B3:C7”)

End Sub

では配列Aの2行目の2列目の数値をイミディエイトウインドウで確認してみましょう。
配列Aの2行目の2列目は「A(2,2)」となります。

そしてこれまで通り先頭に「?」をイミディエイトウインドウに打ち込み
そのあとに「A(2,2)」を打ち込んで「Enter」を押します。

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

2行目の2列目である「48」が出力されました。
今回は配列内の行・列数は少ないですが
大量のデータを格納している数値を確認する際はとても便利ですね。

・文字・数値を入力・計算する

あまり使用する機会はないと思いますが
イミディエイトウインドウを用いて文字・数値を打ち込むことも可能です。

使用方法は簡単で、通常の文字・数値を打ち込むプログラム・計算するプログラムを
イミディエイトウインドウに入力し、「Enter」を押すだけです。

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

「E3」に「B3」と「C3」を足した数値を入力するとします。
プログラムは「Range(“E3”)=Range(“B3”)+Range(“C3”)」としましょう。

こちらをイミディエイトウインドウに直接打ち込みます。

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

計算できていますね。
変数を用いて1回限りの計算をしたい時などには使用できるかもしれませんね。

■イミディエイトウインドウに結果を表示する

これまではイミディエイトウインドウから結果などを確認していましたが
結果をイミディエイトウインドウに表示することもできます。

下図の見本をご覧ください。

数値1と数値2があります。
今回は2つの和をイミディエイトウインドウに表示してみましょう。

使用するのは「Debug.Print」になります。
使用方法としてDebug.Printの後にイミディエイトウインドウに表示したい
プログラムを入力します。プログラムは変数でもいいですし、計算式でも構いません。

では下記プログラムをご覧ください。

Sub イミディエイトウインドウに表示()

Debug.Print Cells(3, 2) + Cells(3, 3)

End Sub

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

数値1と数値2の和が表示されました。
変数の結果や式の結果を表示したい時に使用できますね。

⬛︎公式の説明

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

イミディエイト ウィンドウ (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
特に配列内の数値・文字の確認はイミディエイトウインドウを
活用すれば簡単に確認できるのでとても便利です

ぜひデバッグなどする際にはイミディエイトウインドウを用いて
効率的に実行してみてください。

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