さらに値のみ貼り付けや数式の貼り付けなど様々な貼り付けの形式方法
も紹介していますので、コピーと合わせて活用してみてください。

応用で、複数のコピーが大変な人向けに
配列を使ったコピー方法も紹介していますので是非参考にしてみてください。
それではみていきましょう。

⬛︎構文

・単体の行・列のコピー

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

・複数の行・列のコピー

行:Rows("開始行番号:終わり行番号").Copy
列:Columns(“開始列英字:終わり列英字”).Copy
　Range(Columns(開始列番号),Columns(終わり列番号)).Copy

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

・行のコピー

Sub 行のコピー()
Rows(行番号を入力).Copy
End Sub

・列のコピー

Sub 列をコピーする()
Columns(列番号).Copy
End Sub

⬛︎行のコピー

まずは行のコピーから説明します。
行はエクセルのシートでは横方向のセルを指します。

・１つの行をコピーする

まずは1行のコピー方法にていきましょう。
構文は下記の通りです。

Rows(行番号).Copy

使用方法は簡単ですね。コピーしたい行番号を入力するだけで
コピーができます。

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

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

Sub 行のコピー()

Rows(5).Copy

End Sub

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

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

・複数の行をコピーする

次は複数行をコピーする方法についてです。
例えば2行目から9行目までコピーする場合などですね。

構文は以下の通りです。
Rows(“開始行番号:終わり行番号“).Copy

こちらも単純ですね。
では見本で2行目から9行目までコピーしてみたいと思います。

開始行番号は2行目なので「2」。
終わり行番号は9行目なので「9」となります。

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

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

Rows(“2:9“).Copy

End Sub

実行した結果はこちら。

2行目から9行目までコピーすることができました。

⬛︎列のコピー

今度は列のコピーを見てみましょう。
列のコピーは行と比べて「列番号」または「列の英字」で指定します。
しかし複数の列のコピーは少し工夫が必要になります。

・１つの列をコピーする

ではまず、1列のコピー方法を見ていきましょう。

構文はこちらです。列は2種類ありますね

・Columns(列番号).Copy
・Columns(“列の英字”).Copy

まずは列番号を入力する方法から紹介します。
通常の列は「英数字」で表示されていますよね。

しかし入力するのは列番号です。
列番号とは「A」は「1」、「B」は「2」などを指します。

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

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

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

これで「DA列」の列番号は「105」番目ということがわかりました。
こちらを活用してコピーしてみましょう。

構文はこちらです。

Columns(列番号).Copy

では先ほども求めた列番号「105」を入力します。
プログラムはこのようになります。

Sub 列をコピーする()

Columns(105).Copy

End Sub

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

「DA」列がコピーできました。

ちなみに英数字を入力してもコピーは可能です。
構文はこちらです。

Columns(“列の英字”).Copy

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

Sub 列をコピーする()

Columns(“DA“).Copy

End Sub

こちらのプログラムでもDA列をコピーすることができます。

・複数の列をコピーする

次は複数列コピーする方法を見ていきましょう。
こちらは列番号でコピーする方法と列の英字でコピーする方法を紹介します。

まずは列の英字でコピーする方法を見てみましょう。
構文はこちらです。

Columns(“開始列英字:終わり列英字”).Copy

こちらはイメージしやすいと思います。
例えば「B列からF列」をコピーしたい場合はこのようになります。

Sub 複数列をコピーする()

Columns(“B:F“).Copy

End Sub

それでは実行してみましょう。
実行してみた結果はこちらです。

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

もう１つの列番号で複数列コピーする方法も見てみましょう。
構文はこちらです。

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

先程は英字で指定していましたがこちらは数値で入力できます。

なので見本の「B列からF列」をコピーしたい場合は
「B」は「2」、「F」は「6」に当てはまるので
プログラムはこのようになります。

Sub 複数列をコピーする()

Range(Columns(2), Columns(6)).Copy

End Sub

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

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

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

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

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

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

貼り付け位置.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

⬛︎まとめ

いかがだったでしょうか。
行・列のコピーは結構使用頻度も多いと思いますので
役立つ知識だとおもいます。

コピペについてまとめた記事もありますので参考にしてください

また、今回は数値・英字でコピー範囲を指定しましたが、
変数でも対応が可能です。
そちらについても別の記事でまとめてますので参考にしてみて下さい

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

指定フォルダにファイルが随時入ってきて、処理を繰り返す動作などにはよく使用されます。

さらに「ワイルドカード」との相性もよく、指定した文字を含むファイルのみ確認したいときや
Excelのファイル・PDFファイルなどファイル形式毎にも対応する方法を紹介していますので
是非参考にしてみてください。

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

■忙しい人向けのコピペ用プログラム

赤文字の見本を打ち換えて使用してください。

見本ではメッセージボックスですが、処理したい方法に合わせてカスタムして使用してください。

Sub Dir確認()
Dim Filename As String
Filename = Dir("C:\検証ファイル\ブックA.xlsx")
If Filename = "" Then
MsgBox "対象シートはありません"
Else
MsgBox "対象シートは存在します"
End If
End Sub

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

・指定フォルダから対象のファイルが存在するか確認することができる
・指定フォルダから指定した文字・数値を含むファイルのみを確認することができる
・指定フォルダから対象の拡張子のファイルを確認することができる

■忙しい人向けのコピペ用プログラム

「ファイルのパス」の部分に対象のファイルのパスを貼り付けると
変数Filenameに順次対象ファイル内のファイル名が格納されます。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“ファイルのパス*.*”)

Do While Filename <> “”

Filename = Dir

Loop

End Sub

⬛︎関数の仕組み

出力先＝Dir(pathname, [ attributes ] )

pathname…省略可。フォルダ名やファイル名を入力
attributes …省略可。ファイルの属性を入力

attributesの入力項目については下記表をご参照ください。

⬛︎指定フォルダ・ファイルから対象ファイルがあるか確認する

・対象のシートがあるか確認する

まず、対象シートがあるか確認したいと思います。
今回は見本で「検証ファイル」という名前のフォルダに「ブックA.xlsx」という

ファイルがあるか確認したいと思います。

では構文を見ていきましょう。

出力先＝Dir(pathname, [ attributes ] )

それでは構文に当てはめてみましょう。
出力先を変数の「Filename」としました。
「pathname」についてはフォルダとファイル名なので「C:\検証ファイル\ブックA」となります。

当てはめた構文はこちらです。

Filename = Dir(“C:\検証ファイル\ブックA.xlsx“)

「.xlsx」といった拡張子も入力するようにしてください。

では実際にプログラムを入力してみましょう。
プログラムはこちらです。

Sub Dir確認()

Dim Filename As String

Filename = Dir(“C:\検証ファイル\ブックA.xlsx”)

End Sub

では確認してみましょう。
Dir関数でファイルの有無を確認していますが、ファイルがあった場合は
ファイル名を出力します。反対にファイルがなければ空白を出力します。

そしてIFでファイル名を出力した変数「Filename」が空白だった場合は
「対象シートはありません」のメッセージを表示し、空白でなければ
「対象シートは存在します」のメッセージを表示させます。

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

Sub Dir確認()

Dim Filename As String

Filename = Dir(“C:\検証ファイル\ブックA.xlsx”)

If Filename = “” Then
MsgBox “対象シートはありません”
Else
MsgBox “対象シートは存在します”
End If

End Sub

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

変数「Filename」に対象のファイル名が格納され、「対象シートは存在します」のメッセージが出ました。

では「C:\検証ファイル」に存在しない「ブックD」があるか確認するパターンも見てみましょう。

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

変数「Filename」は空白のままなので、「対象シートはありません」のメッセージが出ました。

・対象フォルダにあるファイルを順に確認する

さきほどは対象フォルダに指定したファイルがあるか確認しました。
今度はファイルを固定せずに対象フォルダ内の全てのファイルを
確認してみたいとおもいます。

では、見本のプログラムから見てみましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.xlsx”)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

「Do While Filename <> “”」から「Loop」で
ファイル名が格納される変数「Filename」が空白になるまで
繰り返し処理を行います。

【マクロVBA】Do…Loopで指定条件まで繰り返し・ループする!WhileとUntilの違いとは ► 独学エクセル塾 (dokugakuexcel.com)

ポイントは「Filename＝Dir」についてです。
ループ前に「C:\検証ファイル」で対象フォルダのファイル名を抜き出していますが、
再度、「Filename＝Dir」でファイル名を出力していますよね。

一度、Dirで読み取った場合、次に読み込むフォルダ引数なしの

「Dir」単体では出力していないファイルを順次出力していきます。
つまり、対象フォルダにあるファイルを順次確認できるといったプログラムになります。

　
ファイル名が「*.xlsx」となっていますがこちらは後ほど紹介します。

では実行していきましょう。
A1セルから読み取ったファイルを順次書き込んでいきます。

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

A列に指定フォルダ「C:\検証ファイル」の中にある「.xlsx」ファイルを書き出しすることができました。

・指定文字を含むファイルのみ確認する

先程の応用になります。
前回は対象フォルダ内の全ファイルを確認しましたが
今回は指定文字を含むファイルのみ確認したいと思います。

使用するのは「✳︎（ワイルドカード）」になります。
先ほどもファイル名を「*.xlsx」として使用していました。

機能として、ワイルドカードを入力すると全ての文字数値を対象としてくれます。

　
例えば「A」を含むファイルを確認したい場合は「✳︎A✳︎」となります。
さらに「頭文字をBとし、それ以降の文字・数値は全て対象」
という場合には「B✳︎」となります。

こちらを応用して先程のプログラムに書き込んでみたいと思います。

今回は「ブック」という文字を含むファイルを確認しましょう。
プログラムはこのようになります。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*ブック*”)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

実行した結果はこちら。

「ブック」という文字を含むファイルを確認できましたね。

先程はブック名でしたが拡張子でも絞り込みが可能です。
条件を「✳︎.pdf」としてみましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.pdf“)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

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

「PDF」のファイルを確認することができました。

⬛︎読み取り専用などファイルの属性を絞って確認する。

ファイルの属性には読み取り専用ファイルや隠しファイル
など存在します。

その属性を絞ってもファイルを確認することができます。
では再度、構文をみてみましょう。

出力先＝Dir(pathname, [ attributes ] )

今回は「attributes」の部分が該当します。
では下の表をご覧ください。

入力する値としては「0,1,2,4,8,16,64」を入力し、
その番号に応じて属性を絞ってファイル確認をします。

入力を省略した場合は属性のないファイルが対象となります。

今回は見本で隠しファイルを作成してみたいと思います。
対象フォルダは先ほどと同様、「C:\検証ファイル」で「フォルダ」というファイルを含むファイルを書き出してみようと思います。

例として「ファイルB」というファイルは隠しファイルとしたいと思います。

これで「ファイルB」が隠しファイルとなりました。

ではプログラムです。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.*”, 0)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

「attributes」を0の属性のないファイルで実行してみましょう。
「ファイルB」は隠しファイルなので含まれず、残りのすべてのファイルが出力されました。

では「attributes」を「2」にして隠しファイルも確認するようにしましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.*”, 2)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

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

今度は「ファイルB」も出力してくれました。

これで属性の絞り込みもできますね。

⬛︎補足の知識

「出力先＝Dir」で対象フォルダ内のファイルを
順次確認しましたが、日付順やファイル名順に抜き出し
たい方はファイルシステムの確認が必要です。

確認方法としてPCの画面の「ローカルディスクC」を右クリックして
「プロパティ」を選択します。

項目の１つに「ファイル　システム」があるので確認してみましょう。

いずれにしてもPCの設定で変わってしまうので
順を指定して処理したい場合は一度、変数やセルに格納して並び替えた後、
その順に処理するのが望ましいと思います。

⬛︎公式の説明

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

⬛︎まとめ

いかがだったでしょうか。
Dirを身につけると、指定フォルダに該当するファイルの
処理が可能になります。

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

別のブックから数値を参照したりなと、ブックを経由する場合はよく使用する機能です。
しかし、使用方法を誤るとエラーが発生し、閉じることができません。

そこで今回はブックを閉じる際に発生するエラーに対しての原因と対処法を紹介します。
それでは見ていきましょう。

⬛︎通常のブックの閉じ方

まず、エラー対応の前に通常のブックを閉じる方法を説明します。
構文は以下の通りです。

Workbooks("ここに閉じたいブック名を記入").Close

とてもシンプルですね。

では見本で「見本.xlsx」というブックを閉じるプログラムを見ていきましょう。
前提として対象のブックが開いてあることが条件となります。

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

Sub ブックを閉じる()

Workbooks(“見本.xlsx“).Close

End Sub

こちらのプログラムで「見本.xlsx」のブックを閉じることができました。
結論としてブックを閉じる際に使用する「Close」はブック名で指示します。
これが原因でエラーが生じる場合もあります。
では、ブックを「close」で閉じる際のエラーの原因と対処法を見ていきましょう。

⬛︎closeのエラーの原因と対処法

・「実行時エラー’9′:インデックスが有効範囲にありません」について

こちらはブック名で指定していない可能性があります。
よくある原因としてはフルパスでファイルを開いて、そのフルパスを活用して「close」
することでエラーが生じてしまいます。

ではプログラムの例を見ていきましょう。
今回は「見本」ブックを開いて、処理を行い、閉じるプログラムです。

Sub ブックを閉じる()

Dim FilePath As String

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

Workbooks(FilePath).Close

End Sub

一見問題無さそうですが実行したらこのようになります。

「実行時エラー’9′:インデックスが有効範囲にありません」というエラーが発生しました。

原因としてブックを開く際の参照と閉じる際の参照の違いに問題があります。
ブックを開く際の「Open」はフルパスでなければなりませんが
ブックを閉じる際の「close」はファイル名でなければなりません。

しかし、パスが繰り返し動作やセルに入力してあるパスを参照する際には
プログラムにファイル名は入力できませんよね。

ファイル名が限定される方は次の項目に飛んでください。

使用するのは「Dir」になります。
機能としてはフルパスからファイル名を取得することができます。

では構文を見ていきましょう。

ファイル名＝Dir(フルパス)

ではこちらを活用したプログラムはこのようになります。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)
Workbooks(CloseFileName).Close

End Sub

それでは実行してみましょう。
「CloseFileName = Dir(FilePath)」の部分の変数「CloseFileName」にファイル名が
格納できているか見てみましょう。

「C:\excel\見本.xlsx」のフルパスからファイル名のみを抽出できています。

これでファイル名で「close」するのでエラーが出なくなります。

また、「close」で設定したファイル名が合っていなくても同様のエラーとなります。

例えば閉じたいブック名に半角のスペースが入っただけでも
エラーになってしまいます。

正確なファイル名で「close」の指示ができるようにプログラムを作成してください。

・プログラムが途中で停止、実行中のブックが閉じる

こちらは実行中のプロシージャ（プログラム)のブックを閉じると
起こるエラーとなっています。

例えば、「ファイル A」というファイルからVBAを使用して
「ファイルB」というファイルを閉じようとします。

しかし誤って「ファイルA」を閉じるように設定すると
プログラムを実行中のファイルAが閉じてしまうため
プログラムが途中で停止してしまう問題が発生します。

なので閉じるファイル名が正確か確認してみてください。

⬛︎補足　ブックを閉じる際の確認画面を表示させない方法

ここからは補足になります。
編集したブックを「close」で閉じる指令を実行すると「’対象ファイル名’の変更内容を保存じますか？」というメッセージがでます。

「Workbooks(ファイル名).Save」で１度保存した場合は問題ありませんが、保存しない場合は処理しないといけません。

しかし何度もブックを閉じるプログラムだと毎回確認ボタンを押さないといけないので面倒くさいですよね。
そこでブックを閉じる前に「Application.DisplayAlerts = False」を実行することで、確認動作をスルーすることができます。
ブックを閉じた後は「Application.DisplayAlerts = True」で再度、確認メッセージが出るように設定することをオススメします。

では先ほどのプログラムに織り込んでみましょう。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)

Application.DisplayAlerts = False
Workbooks(CloseFileName).Close
Application.DisplayAlerts = True

End Sub

これで「’対象ファイル名’の変更内容を保存じますか？」の確認メッセージをスルーすることが出来ます。

⬛︎まとめ

いかがだったでしょうか。
ブックを経由してデータを取得したり入力したりする際に用いられる
「close」ですが、使用方法を間違えるとエラーが生じてしまいます。

ぜひ今回の記事を参考にして
エラーが出ないようなプログラムを作成してみてください。

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

イミディエイトウインドウについての記事はこちらから☟

【マクロVBA知識 29】イミディエイトウインドウで変数・配列内の文字数値の確認や計算・変更をする ► 独学エクセル塾 (dokugakuexcel.com)

今回は変数や配列が現状、どのような文字・数値なのかを一覧で確認できる
ローカルウィンドウについて紹介したいとします。

イミディエイトウインドウでは1つずつの確認しかできませんでしたが
ローカルウィンドウを使用することで一目で確認できるのでとても便利です。
それでは見ていきましょう。

■ローカルウィンドウの表示方法について

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

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

まず「表示」のメニューを選択してください。
そこから「ローカルウィンドウ」を押せばローカルウィンドウを表示することができます。

すると下部にローカルウィンドウが表示されます。

今回はこの部分を活用する内容です。
それでは実際に活用してみましょう。

■ローカルウィンドウを活用する

・変数を確認する

ではまず変数を確認してみましょう。
下図の見本を用意しました。

B列の数値1とC列の数値2を足した結果をE列に出力します。
プログラムはこのようになります。

Sub 数値1と2の和()

Dim A As Long

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

End Sub

ここではFor Nextを用いて変数をAとし繰り返し処理を行います。
ではF8を押して1行ずつ実行してみましょう。

ローカルウィンドウを見ると「式の項目には変数A」、「値には現在の変数Aの値」、
「型には変数Aの方であるLong」が表示されました。

さらにプログラムを実行していきましょう。

実行に連れて変数が変化していることが確認できますね。
変数の内容が一目でわかり、とても便利です。

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

先ほどは変数の内容を確認しましたが、配列内でも
文字・数値の確認をすることができます。

先ほどの見本を元に進めたいと思います。

今回はB3からC7を変数Aとして配列内に格納しています。

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

Dim A As Variant

A = Range(“B3:C7”)

End Sub

では「A = Range(“B3:C7”)」までプログラムを実行し、
ローカルウィンドウを見てみましょう。

「A」には値は空白になっており、型は「Variant」になってますね。
Variantの横には「1to5」と5行データがあることと「1to2」と2列のデータがあることが確認できます。
では「A」の横にある「+」を押してみましょう。

A(1)～A(5）まで展開することができました。
これは1から5列目の配列を意味します。
さらにA(1)を展開した結果が上図になってます。

A(1,1)には「32」。A(1,2)には「14」が表示されています。

格納したデータ通り値を確認することができました。

⬛︎公式の説明

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

ローカル ウィンドウ | Microsoft Learn

■まとめ

いかがだったでしょうか。
変数にいちいちカーソルを合わせて文字・数値を確認していた作業が
一目でわかるようになりました。
さらに確認しずらい配列内の文字・数値も確認することができるので
とても便利な機能ですよね。

ぜひローカルウィンドウを活用してデバック操作を効率よく実行してみてください。
それでは次回の記事でお会いしましょう。

【マクロVBA知識 23】文字・数値の置換と完全一致など様々な置換オプション ► 独学エクセル塾 (dokugakuexcel.com)

今回は「”(ダブルクォーテーション）」の置換方法について紹介します。
機会は少ないかもしれませんが、ダブルクォーテーションを置き換えたい場合には必要な知識になります。

数値であればダブルクォーテーションを外さないと計算できません。
後程紹介するのですが、通常の置換ではダブルクォーテーションは置き換えることができないので今回の記事で知識を身に着けてください。

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

■まずは置換の基礎知識から

本記事を紹介する前にまずは置換の機能を見ていきましょう。
詳しくは紹介しないので詳しくみたい方は冒頭で紹介した記事をご参照ください。

では見本を用意しました。

「B3」に「A」という文字があります。
こちらを「B」に置き換えてみましょう。

まずは悪い例を見てみましょう。

Sub AからBへ()

Range(“B3“).Replace What:=A, Replacement:=B

End Sub

内容は簡単です。
B3のセルをAからBに変えるといったプログラムになっています。

しかし実行すると下図のような結果になります。

置き換えできていませんね。

置き換えできない原因として、「A」「B」と打ち込んだ
英文字は変数として処理されるため「A」または「B」という文字で判別されません。

変数の記事はこちらから☟

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

では正しいプログラムを紹介します。
ここで今回の主役、「”（ダブルクォーテーション）」を使用します。
使用方法は「A」であれば「”A”」と英字をダブルクォーテーションで囲います。

Sub AからBへ()

Range(“B3“).Replace What:=“A”, Replacement:=“B”

End Sub

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

「A」から「B」へ置き換えることができました。
つまり「”（ダブルクォーテーション)」で英字を囲むことで文字と認識され
置き換えることができる仕組みです。

置き換えの基礎知識とダブルクォーテーションの機能は理解できましたね。
では本題に移りたいと思います。

■　” (ダブルクォーテーション)を置き換える

ではダブルクォーテーションを置き換えてみましょう。
再度見本を用意しました。

合計を求める「E3」は数値1と数値2を足している数式を入れているのですが
数値1と数値2にダブルクォーテーションがついているので
文字として処理され、計算ができない状態です。

では「”（ダブルクォーテーション）」を置き換えてみましょう。

何も知らなけれは下記のようなプログラムを作成すると思います。

①Range(“B3：C3″).Replace What:=”, Replacement:=””
②Range(“B3：C3″).Replace What:=”””, Replacement:=””

①は「”」を空白にしたいので「””」へ置き換え
②は「”」を文字として置き換えたいのでダブルクォーテーションで囲って
　 「”””」とし、置換先を「””」にする。

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

コンパイルエラー：引数は省略できません。
というエラーが発生しました。

つまり置換元にダブルクォーテーションを入力しても置き換えることができません。

ここで使用するのが「Chr（34)」です。
なんだこれ？と思われた方もいると思いますが
Chr関数を応用した機能になります。

Chr関数の34は「”（ダブルクォーテーション)」にあたります。

つまり「 “＝Chr(34）」ということですね。

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

Sub ダブルクォーテーション置換()

Range(“B3：C3”).Replace What:=Chr(34), Replacement:=“”

End Sub

[ダブルクォーテーション=Chr(34)]を[空白＝””]に置き換えるといった意味です。

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

無事ダブルクォーテーションを空白にすることができました。
Chr関数は面白い関数ですね。

■公式の説明

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

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

Chr 関数 (Visual Basic for Applications) | Microsoft Docs

■まとめ

いかがだったでしょうか。
ダブルクォーテーションは文字列として判別するために用いますが
置き換える際には一工夫必要です。

ぜひ今回の知識を活用して置き換えてみてください。
それでは次回の記事でお会いしましょう。

【マクロVBA知識 27】ステップイン・オバー・アウトで動作確認（デバッグ）を行う ► 独学エクセル塾 (dokugakuexcel.com)

動作確認を行う際にはF8を使用して1行ずつ実行する方法もありますが
プログラムが長くなれば手間がかかる上、確認が済んでいるプログラムも1行ずつ確認しないといけません。

そこで今回は指定した位置までプログラムを実行する方法について紹介したいと思います。
今回の記事を身に着ければプログラムの動作確認が楽になりますので是非参考にしてみてください。

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

■見本のプログラムを紹介

まず、機能をプログラムを用いて説明するため見本のプログラムを準備しました。
内容は下図の見本を作成してみました。

行いたい作業として、単価と購入数が入力されてある場合に
E列の総額を計算するプログラムを作成したいと思います。

作成したプログラムは下記の通りです。

Sub 総額の計算()

Dim Cycle As Variant

For Cycle = 4 To 16 Step 1

If Cells(Cycle, 3) <> “” Then
Cells(Cycle, 5) = Cells(Cycle, 3) * Cells(Cycle, 4)
End If

Next Cycle

End Sub

今回は実行についての記事なので詳しくは説明しませんが、
「For Next」 と「If」を使用した簡単なプログラムです。

「For Next」 と「If」の記事はこちらから☟

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

【マクロ・VBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△) ► 独学エクセル塾 (dokugakuexcel.com)

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

計画通り、機能してくれています。

■カーソル行の前まで実行する方法について

まずはカーソル行の前まで実行する方法について紹介したいと思います。
こちらの方法は動作確認が序盤で停止したい位置が毎回変化する場合に便利です。

再度、プログラムを図でみてみましょう。

このプログラムのメインの機能は単価（C列）が空白でない場合、
単価（C列）と購入数(D列)をかける「Cells(Cycle, 5) = Cells(Cycle, 3) * Cells(Cycle, 4)」
の部分ですね。

しかし単価（C列）が空白な場合は対象の部分は飛ばされるので
何度も「F8」をおして実行しないといけません。
今回の見本は行数が少ないので問題ないですが、行数が多い場合は大変です。

では「Cells(Cycle, 5) = Cells(Cycle, 3) * Cells(Cycle, 4)」の部分までプログラムを飛ばし、
対象のプログラムまで来たらプログラムを停止させてみましょう。

まず実行したいプログラムを選択し、「F8」を1回以上押して実行します。

そして止めたい行の部分で右クリックを押します。
ここでは「Cells(Cycle, 5) = Cells(Cycle, 3) * Cells(Cycle, 4)」の部分ですね。

するとメニューに「カーソル行の前まで実行」という項目があります。
ではこちらを押してみましょう。

選択した行まで実行し、対象行で止まってくれました。
繰り返しの変数「Cycle」も4からスタートですがすでに「7」になってます。
つまり、「4～6」は空白で指定行が飛ばされたので、条件にあれはまる「7」で止まってくれました。

とても便利な機能ですね。

■ブレークポイントを活用する

では次の手法を見てみましょう。
使用する機能は「ブレークポイント」と呼ばれるものです。

こちらの手法は止めたい位置があらかじめ決まっている場合は
とても便利な機能です。

では見ていきましょう。

プログラムは先ほどと同様のプログラムを使用し、
計算結果を書き込む位置で止めたいと思います。

まず途中で停止したい列を選択します。

この状態で「F9」を押してみましょう。
すると下図のように止めたい行の左に赤い印と対象行に色がつきました。
こちらが「ブレークポイント」と呼ばれる機能になります。

ちなみにこちらの「ブレークポイント」は「F9」を押す以外にも設定することができます。

こちらはワンクリックで設定できるのでとても便利ですね。

もう一つの方法として
「ブレークポイント」を設定したい行を選択して「デバッグ」から「ブレークポイントの設定/解除」を
押しても設定可能です。

では実際に「ブレークポイント」を活用してみましょう。

上記の状態で全実行の「Ｆ5」を押してみましょう。
結果はこのようになります。

「ブレークポイント」の位置で止まってくれました。
繰り返し動作で指定の場所の処理を確認したい時など
止めたい位置がすでに判明している場合はとても便利な機能ですね。

⬛︎公式の説明

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

ブレークポイントの設定とクリア (VBA) | Microsoft Learn

■まとめ

いかがだったでしょうか。
動作確認（デバッグ）はプログラムが長ければ長いほど大変な作業です。

確認が終わっている個所を飛ばして実行したり、
ブレークポイントを活用して止めたい個所を止めたりすることで
動作確認（デバッグ）を効率よく実行してみてください。

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

【マクロVBA知識 25】長くなったプログラムを改行・複数の行に分ける方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は前回の内容の対称となる複数行のプログラムを1行・小数行にまとめる方法について紹介します。
Select Caseなどを使用する中で条件が単純な場合は文字数が少ないのに対し
必要となる行は増えてしまいます。

そこで今回は複数に分かれたプログラムを1行・小数行にまとめて
コンパクトに管理しやすいプログラムを作成する方法について紹介したいと思います。

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

■見本のプログラムを紹介

まず、内容を紹介するにあたりイメージしやすいように
見本の作業とプログラムを用意しました。下図をご覧ください。

内容としてD3にグーチョキパーを入力すると勝敗がF3に出力されるようにしたいと思います。

ではプログラムを作成してみましょう。
結果は下記の通りです。

Sub じゃんけんの勝敗()

Dim A As String
A = Cells(3, 4) ‘自分の出した手

Select Case A
Case Is = “グー”
Cells(3, 6) = “あいこ”
Case Is = “チョキ”
Cells(3, 6) = “負け”
Case Is = “パー”
Cells(3, 6) = “勝ち”
End Select

End Sub

上記プログラムではＣaseが複数あり、行数が増えてしまっています。

ではこちらを小数行にまとめていきましょう。

■プログラムを1行・小数行にまとめる

では先ほどのプログラムを実際の図で確認してみましょう。

Caseが多く、行数が増えてしまいます。
ここで使用するのが「：（コロン）」です。

使用方法は簡単です。1行目と2行目を1つにまとめ、間に「：」を付けるだけです。
例えばA行とB行があったとすると「A行：B行」という配置で1行にすることができます。

では先ほどのプログラムを1つのまとめてみましょう。
結果はこのようになりました。

Sub コロンを使用したじゃんけんの勝敗()

Dim A As String
A = Cells(3, 4) ‘自分の出した手

Select Case A: Case Is = “グー”: Cells(3, 6) = “あいこ”: Case Is = “チョキ”: Cells(3, 6) = “負け”: Case Is = “パー”: Cells(3, 6) = “勝ち”: End Select

End Sub

実際の図で見てみましょう。

いかがでしょうか。
複数行のプログラムを1行にまとめることができました。
マクロVBAの機能上、行を分けないといけないもので文字数が少ない場合は
「：」を使って1行・小数行にまとめてみてください。

■よくあるエラーと対処法について

ここからは本内容で発生しやすいエラーと対処法について紹介します。

・コンパイルエラー：End If に対応するIf ブロックがありません/行頭のみ許されるステートメントです

こちらを使用した方はIf Thenで「：（コロン）」を使用したのでないでしょうか。
再度見本を見てみましょう。

内容としてD3にグーチョキパーを入力すると勝敗がF3に出力されるようにしたいと思います。
今回はIf Ｔhenで作成してみました。

Sub IFを使用したじゃんけんの勝敗()

Dim A As String
A = Cells(3, 4) ‘自分の出した手

If A = “グー” Then
Cells(3, 6) = “あいこ”
ElseIf A = “チョキ” Then
Cells(3, 6) = “負け”
ElseIf A = “パー” Then
Cells(3, 6) = “勝ち”
End If

End Sub

このプログラムでは正常に機能します。
ここで「：（コロン）」を使用して行を短縮してみましょう。

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

文字が赤くなり、エラーが出てしまいました。

結果として「：（コロン）」はIf Thenで使用することはできなくなっています。
処理の方は使用できるのですがThenとそれ以降の処理は行を分ける必要があります。

Select Ｃaseは見本の通り使用できるので
こちらを使用するのも手ですね。

⬛︎公式の説明

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

Office VBA の基礎知識 | Microsoft Learn

■まとめ

いかがだったでしょうか。
プログラムが長くなってしまうと、どこからどこまでがどの処理かわからなくなってしまいます。

その際は「：（コロン）」を使用して行を短縮してみてください。

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

そこで今回はプログラムを改行・次の行にわけることで
コンパクトに管理しやすいプログラムを作成する方法について紹介したいと思います。

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

■見本のプログラムを紹介

まず、内容を紹介するにあたりイメージしやすいように
見本の作業とプログラムを用意しました。下図をご覧ください。

内容としてB4からC15の範囲をコピーして
E4を先頭に貼り付けを行います。

さらにその中の条件として

①値のみ貼り付け
②貼り付けによる計算は行わない
③列と行を入れ替える

の条件を元に貼り付けを行いたいと思います。

■プログラムを改行・次の行に分ける

こちらを満たすプログラムを作成してみました。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, Transpose:=True

End Sub

貼り付けの条件が多い為プログラムは長くなってしまい、
モニターを分割して表示していると1部隠れてしまいます。

これではプログラムの入力もしにくく、確認作業（デバッグ）時も手間がかかってしまいます。

では悪い例でEnterキーで改行してみましょう。
結果はこのようになります。

式が成り立たずに「コンパイルエラー」が発生してしまいました。
さらにプログラムも赤文字になり、エラー個所であることがわかります。

ここで本題の対策です。
使用するのは「　_(スペース＆アンダーバー）」です。

使用方法は改行したい位置で「”　_”」を入力します。
では見本のプログラムに組み込んでみましょう。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues _
, xlPasteSpecialOperationNone _
, Transpose:=True

End Sub

長いプログラムを複数行にすることができました。

実際に打ち込んでもエラーになりませんね。
もちろん、この状態で実行することができます。

注意点として「’（アポストロフィー)」を用いてコメントを入力できるのは
最終行のみです。途中で入力してもエラーになってしまいます。

■よくあるエラーと対処法について

ここからは本内容で発生しやすいエラーと対処法について紹介します。

・コンパイルエラー　修正候補：行番号または行ラベルまたはステートメントまたはステートメントの最後

こちらのエラーは「_(アンダーバー）」の前に「　（スペース）」がないことが考えられます。
下図をご覧ください。

正常なプログラムは「　(スペース＆アンダーバー）」がセットで入力されていますが エラーが発生するプログラムは「(アンダーバー）」のみとなっています。

こちらの異常が発生した際は「　_(スペース＆アンダーバー）」のセットをご確認下さい

⬛︎公式の説明

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

Excel Visual Basic for Applications (VBA) リファレンス | Microsoft Learn

■まとめ

いかがだったでしょうか。
今回の見本はあまり長くありませんでしたが
使用する機能によっては、とても長くなるので今回の内容を参考にしてみてください。

Ifで条件分岐する際にAndを用いて複数使用する場合は長くなるので活用できますね。
次回は本内容の対称となる「プログラムを1行にまとめる方法」について紹介したいと思います。

次回の記事はこちらから☟

【マクロVBA知識 26】複数行のプログラムを1行・小数行にまとめて短縮する方法 ► 独学エクセル塾 (dokugakuexcel.com)

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

このエラーが発生するとプログラム自体を走らせることができなくなるので対策が必要です。

原因も詳しく説明してますので是非参考にしてみてください。

では実際に見ていきましょう。

■通常のユーザーフォームの表示

まずはエラーが発生しないユーザーフォームの表示を見てみましょう。
見本で下図のユーザーフォームを作成してみました。

特に変わりないユーザーフォームになってます。

ここで注目してほしいのは「オブジェクト名」です。
ではこちらのユーザーフォームを表示するだけのマクロVBAのプログラムを見てみましょう。

Sub ユーザーフォームを表示()

更新中.Show

End Sub

とてもシンプルですね。
更新中のユーザーフォームを表示するので
更新中.Show
というプログラムです。

では実行してみましょう。

問題なくユーザーフォームを表示することができました。

■「Functionまたは変数が必要です」のエラーの原因と対策法

では本題に移りたいと思います。
下記のマクロVBAのプログラムをご覧ください。

Sub 更新中()

更新中.Show

End Sub

一見問題なさそうなプログラムですよね。
では実行してみましょう。すると下記のようなエラーが表示されました。

ここでお気づきの方もおられると思いますが
実行プログラム自体は先ほどの見本では実行できたことから何も問題ありません。

では正常に機能するプログラムとエラーが発生するプログラムを見比べてみましょう。

正常のマクロVBAのプログラム

Sub ユーザーフォームを表示()

更新中.Show

End Sub

異常のマクロVBAのプログラム

Sub 更新中()

更新中.Show

End Sub

お分かりいただけましたでしょうか。

正常であるプログラムはプログラム名が「ユーザーフォームを表示」で「更新中」のユーザーフォームを表示させてますが、エラーが発生するプログラムは「更新中」というプログラム名で「更新中」のユーザーフォームを表示させてます。

つまり、エラーの原因は「オブジェクト名とプログラム名が一緒」であることがわかります。

なので対策としてはオブジェクト名とプログラム名は同じでないことが正常のプログラムに欠かせません。

どうしても同じ名前で付けたい場合は下記プログラムのように1文字でも付け加えるだけで正常に動いてくれます。

Sub 更新中1()

更新中.Show

End Sub

■まとめ

いかがだったでしょうか。
私もユーザーフォームを使用し始めたときに同じエラーが発生して
対策方法がわからず試行錯誤して判明しました。

現在はプログラム名の後に作成した年月日を番号で入力しているので
そのようなエラーは起きない＆作成した日時がわかるのでおすすめです。

是非参考にしてみてください。

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

【マクロ・VBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△) ► 独学エクセル塾 (dokugakuexcel.com)

Else If を使用すれば様々な条件・ケースの処理が可能になります。
しかし、複数の条件を組み合わせて多用すればVBAプログラムは複雑になってしまいます。

そこでSelect Caseを使用すれば簡単で様々な条件・ケースにあった処理が可能になります。

ぜひ身に着けて活用してみてください。
それでは見ていきましょう。

■Select Caseの使用方法

Select Case 条件の対象

Case Is 条件①
　　　条件①の処理

Case Is 条件②
　　　条件②の処理

Case Is 条件③
　　　条件③の処理

・・・

End Select

■Select Caseを使用して条件分岐処理をする

では見本を元に説明していきます。
下図をご覧ください。今回は体温を入力して「高熱・発熱・微熱・平熱」を判断してみます。

条件として
①38.5℃以上は「高熱」
②38.0℃以上は「発熱」
③37.0℃以上は「微熱」
④36.9℃以下は「平熱」
の4段階を処理します。

ではまず、Select Caseを使用せず、ElseIfを使用してプログラムを作成してみました。

Sub 体温の判断①()

If Range(“C4”) >= 38.5 Then
Range(“C7”) = “高熱”

ElseIf Range(“C4”) >= 38 Then
Range(“C7”) = “発熱”

ElseIf Range(“C4”) >= 37 Then
Range(“C7”) = “微熱”

ElseIf Range(“C4”) <= 36.9 Then
Range(“C7”) = “平熱”
End If

End Sub

このプログラムでも求められる機能を満たすことは可能です。
しかし、毎回「Range(“C4”)」を入力して手間がかかるうえに
「ElseIf」が重なり、とても複雑で入力がめんどくさいプログラムになっていますね。

こちらをSelect Caseを使用してシンプルで簡潔なプログラムにしたいと思います。

ではSelect Caseの使用方法を振り返りましょう。

Select Case 条件の対象

Case Is 条件①
　　　条件①の処理

Case Is 条件②
　　　条件②の処理

Case Is 条件③
　　　条件③の処理

・・・

End Select

特徴として条件の対象を1度打ち込めばＣase Ifでその対象を比較してくれます。
つまり毎回「Range(“C4”)」を打ち込まなくても比較してくれるようになります。

さらにSelect Caseで宣言した後はEnd Selectで挟んでください。

Select Caseを使用したプログラムはこのようになります。

Sub 体温の判断②SelectCaseの場合()

Select Case Range(“C4”)

Case Is >= 38.5
Range(“C7”) = “高熱”

Case Is >= 38
Range(“C7”) = “発熱”

Case Is >= 37
Range(“C7”) = “微熱”

Case Is <= 36.9
Range(“C7”) = “平熱”

End Select

End Sub

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

うまく機能してくれていますね。
プログラムもシンプルになりました。
比較対象が1つの場合はSelect Caseを使用してみてください。

■Select Caseを使用した応用機能

・比較演算子を使用しない条件分岐方法

先ほどは「>=」などの比較演算子の方法で条件分岐を行いましたが
比較演算子を使用しなくても条件分岐する方法があります。

先ほど発熱の範囲は38℃から38.4℃でした。
その際の条件分岐式は下記の要領で設定しましたね。

Case Is >= 38.5
Range(“C7”) = “高熱”

Case Is >= 38
Range(“C7”) = “発熱”

こちらで必然的に38℃から38.4℃は「発熱」となります。

では「○○～△△」と数値の範囲を設定したい時の簡単な方法をご紹介します。
使用するのは「To」です。

Toの使用方法は　「Case　○○　To △△」のように使用します。
では先ほどの38℃から38.5℃は発熱という判別式を「To」で作成すると
下記のようになります。

Case 38 To 38.4
Range(“C7”) = “発熱”

ちなみにＴoを使用する際は「小さい数値　Ｔo　大きい数値」の順に入力しなければ
うまく条件分岐できないので注意が必要です。

・Caseで範囲を指定しない場合

これまで「>=」といった比較演算子や「Ｔo」を使用した範囲指定をしましたね。
では範囲指定しない場合を見てみましょう。

下図をご覧ください。

「36.5」℃の場合は「標準体温」と表記するようにしましょう。
プログラムは単純です。

36.5で条件分岐をしたい場合は「Case 36.5」というように
数値のみ入力すれば「36.5」の時のみ条件分岐処理ができます。

プログラムは下記の通りです。

Sub 体温の判断②SelectCaseの場合()

Select Case Range(“C4”)

Case 36.5
Range(“C7”) = “標準体温”

End Select

End Sub

・アルファベットの範囲指定

これまでの条件として数値の範囲で分岐させていましたが
アルファベットの範囲指定もSelect Caseでは可能になります。

下図をご覧ください。

評価が「AからC」の時は「合格」、「DからF」の時は「不合格」と
処理するプログラムを作成してみましょう。

数値の時は「1から5」の場合は「1 To 5 」で範囲指定しましたよね。
考え方は同じで「AからC」のときは「”A” To “C”」となります。

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

Sub SelectCaseでアルファベットの範囲指定()

Select Case Range(“C4”)

Case “A” To “C”
Range(“C7”) = “合格”

Case “D” To “F”
Range(“C7”) = “不合格”

End Select

End Sub

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

うまく機能していますね。

■ループを抜き出す方法

ここではSelect Caseでループを抜け出す方法を紹介します。

使用するのはIf…Thenと呼ばれる条件分岐とGotoになります。

仕組みとしてはIf…Thenで指定した条件に当てはまるか確認し、

結果にあわせてGotoでプログラムを飛ばします。

詳しくは下記記事でまとめていますので参考にしてみてください☟

【マクロVBA知識 11】GoToでプログラムを指定した場所まで飛ばす方法について Excel ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

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

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

Select Case ステートメント (VBA) | Microsoft Docs

■まとめ

いかがだったでしょうか。
IF Thenとは少し異なる条件分岐の処理だったと思います。

比較対象が1つの場合には確実にIFよりもSelect Caseの方が
簡単で作成しやすいですよね。

ぜひSelect CaseとIFを使い分けて活用してみてください。

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

次回の記事はこちらから☟

【マクロVBA知識 25】長くなったプログラムを改行・複数の行に分ける方法 ► 独学エクセル塾 (dokugakuexcel.com)