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

【マクロ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

⬛︎まとめ

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

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

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

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

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

⬛︎構文

・単体の行・列のコピー

行: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

⬛︎まとめ

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

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

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

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

通常の作業で使用するコピペを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

⬛︎まとめ

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

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

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

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

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

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

■切り取りについて

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

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

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

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

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

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

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

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

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

ショートカットキーは「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)

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

【VBA知識 12】別のシートをアクティブ・選択する方法について ► 独学エクセル塾 (dokugakuexcel.com)

今回はシート操作の中でも

シートを作成する・ブック内・外へコピーする・削除する操作をご紹介します。

シートをアクティブにする操作に加え、今回の記事を身につけると

シート関係の操作は網羅できるようになります。

ぜひ参考にしてみてください。

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

■シートを作成する

・通常作成

ではまず、シートの作成を行いたいと思います。

早速シートを作成するプログラムを見てみましょう。

Worksheets.Add

こちらで新規のシートを作成できます。
ではプログラムを作成してみましょう。

Sub シートの作成()

Worksheets.Add

End Sub

では実行してみます。

実行前は「Sheet1」と「Sheet2」しかない状態です。

この状態で実行すると…

あたらしく「Sheet3」が作成できました。

・指定したシートの前・後にシートを作成

今度は指定したシートの前後にシートを作成してみましょう。

シート作成は先ほどの「Worksheets.Add」で構いません。
この後にプログラムを追記していきます。

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

前に追加：Worksheets.Add Before:=Worksheets(“指定シート名”)
後に追加：Worksheets.Add After:=Worksheets(“指定シート名”)

単語の意味通り前に追加したいときは「Before」で後に追加したいときは「After」です。
では見本を通して説明したいと思います。

「基準」というシートを指定シートとして

「基準」シートの前後に新しいシートを追加してみましょう。

「基準」シートの前に新しいシートを追加するプログラムはこのようになります。

Sub シートの作成()

Worksheets.Add Before:=Worksheets(“基準”)

End Sub

実行すると…

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

対して「基準」シートの後に新しいシートを追加するプログラムはこのようになります。

Sub シートの作成()

Worksheets.Add After:=Worksheets(“基準”)

End Sub

実行すると…

どちらもうまく機能していますね。

・○番目にシートを追加する

今度は番号を入力して指定した番号の順にシートを作成してみましょう。
プログラムは下記の通りです。

指定番号前に追加：Worksheets.Add Before:=Worksheets(“数値”)
指定番号後に追加：Worksheets.Add After:=Worksheets(“数値”)

では下記の見本をもとに説明しています

今回は２番目にシートを追加してみましょう。
つまり「Sheet1」と「Sheet2」の間に新しいシートが追加していきます。

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

Sub シートの作成()

Worksheets.Add After:=Worksheets(1)

End Sub

このプログラムで１番目のシートの後に新しいシートを追加することができます。
実行の結果はこのようになります。

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

■シートに名前を付ける

今度はシートに名前を付けてみましょう。
プログラムはこのようになります。

ActiveSheet.Name = “プログラム名”

では実践です。

今回は「Sheet2」に「あいうえお」と名前を付けてみましょう。

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

Sub シートの名前の変更()

ActiveSheet.Name = “あいうえお”

End Sub

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

あいうえおに変更することができました。

■シートをコピーする

・ブック内にシートをコピーする

次はシートのコピーです。
プログラムはこのようになります。

指定シート前にコピー：

Worksheets(“シート名”).Copy Before:=Worksheets(“指定シート名”)

指定シート後にコピー：

Worksheets(“シート名”).Copy After:=Worksheets(“指定シート名”)

では実践です。
下記の「あいうえお」のシートを基準に「あいうえお」の後にコピーしてみましょう。

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

Sub シートのコピー()

Worksheets(“あいうえお”).Copy After:=Worksheets(“あいうえお”)

End Sub

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

コピーができました。
Beforeでプログラムを組むと「あういえお」の前にコピーできます。

さらにシートの作成で紹介した番号でシートのコピーも可能です。

例えば１番最初にシートをコピーしたいときはこのようになります。

Sub シートの作成()

Worksheets(“あいうえお”).Copy Before:=Worksheets(1)

End Sub

・別のブックへコピーする

先ほどは同じブック内での作業でしたが今度は別のブックにコピーしてみましょう。
プログラムはこのようになります。

指定シート前にコピー：

Worksheets(“シート名”).Copy Before:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

指定シート後にコピー：

Worksheets(“シート名”).Copy After:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

今回は「Book1のあいうえお」のシートを「Book2の先頭」にコピーしてみましょう。

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

Sub シートのコピー()

Worksheets(“あいうえお”).Copy Before:=Workbooks(“Book2.xlsx”).Worksheets(1)

End Sub

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

Book2の先頭に「あいうえお」のシートをコピーすることができました。

■シートを移動する

次はシートの移動です。
移動はコピーとほとんど同じプログラムになります。

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

指定シート前に移動：

Worksheets(“シート名”).Move Before:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

指定シート後に移動：

Worksheets(“シート名”).Move After:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

上記は別のブックへの移動ですが

・Workbooks(“コピー先のブック名”)を外せば同じブック内での移動。
・Worksheets（番号)で指定番号へ移動

など、これまで学んで来た作業が移動で応用できます。

■シートを削除する

最後にシートを削除する方法について説明します。
これまで「Copy」や「Add」、「Move」などを使用してきましたが
削除には「Delete」を使用します。

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

Worksheets(“シート名”).Delete

では下記の「あいうえお」を削除してみましょう。

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

Sub シートの削除()

Worksheets(“あいうえお”).Delete

End Sub

実行すると…

「あいうえお」のシートが削除できました。

⬛︎公式の説明

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

Sheets.Add メソッド (Excel) | Microsoft Learn

Worksheet.Name プロパティ (Excel) | Microsoft Learn

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

Worksheet.Delete メソッド (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
これでシート操作はマスターできたと思います。

シートの操作ができればVBAでできることの幅が広がるので

ぜひ今回の記事を参考にしてみてください。

次回のはVBAで合計を求める方法についてまとめています。記事はこちらから☟

【マクロVBA知識 18】合計・総和をSUM・SUMIF・SUMIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

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