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

【マクロ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㉜】行の高さ・列の幅を指定の数字・ポイント・センチに変更、自動調整する方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は指定した行の高さ・列の幅を取得する方法、さらに活用する方法について紹介したいと思います。

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

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

青文字をカスタムして使用してください

・行の高さ

Sub 行の高さを変数Nに格納()
Dim N As Variant
N = Rows(ここに行番号を入力).RowHeight
End Sub

・列の幅

Sub 列の幅を変数Nに格納()
Dim N as Variant
N= Columns(ここに列番号を入力).Width
End Sub

■行の高さを取得する

・取得方法

まず行の高さを取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Rows(取得したい行番号).RowHeight

RowHeight はHeight でも構いません。

では見本で変数Nに3行目の高さを格納してみましょう。

Sub 行の3行目の高さを変数Nに格納()

Dim N As Variant

N = Rows(3).RowHeight

End Sub

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

変数Nに「13.2」が格納されていますね。
実際に行の高さを確認すると「13.2」なので機能している事がわかります。

・活用方法

では先程取得した行の高さを活用してみましょう。

今回は見本として3行目の高さを4から6行目にも反映させてみたいと思います。

ではプログラムです。

Sub 行の3行目の高さを4から6行目に反映()

Dim N as Variant,A as Long

N= Rows(3).RowHeight

For A＝4 to 6 step 1
Rows(A).RowHeight=N
Next A

End Sub

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

狙い通り3行目の高さを4から6行目に反映させる事ができました。

・複数行の行の高さを取得する

今度は複数行の行の高さの取得方法を見ていきましょう。
これまではRowHeightを使用して行の選択をしてきましたが、RowHeightは1行のみしか対応出来ないので「Height」を使用します。

使用方法としては
変数・出力先=Rows(“先頭行:最終行”).Height
のように使用します。

では例をみていきましょう。

今回は3行目から6行目までの行の高さをまとめて取得してみたいと思います。

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

Sub 行の3行目から6行目までの高さを変数Nに格納()

Dim N As Variant

N = Rows(“3:6”).Height

End Sub

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

行数の高さはすべて13.2にしています。
3から6行目の行の高さの和は「52.8」なので問題なく機能していますね。

■列の幅を取得する

・取得方法

次に列の幅を取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Columns(取得したい行番号). ColumnWidthまたはWidth

ColumnWidthとWidthを扱う上での注意点は下記の通りです。

ColumnWidthは幅の設定する際の数値に用いられる単位で半角文字1文字を「1」に置き換えた数値ですが
Widthは行の高さでも用いられる「ポイント」と呼ばれる単位なので
Widthで取得した値を別の列に反映させても列の幅は異なってしまいます

では見本で変数NにE列目の高さを格納してみましょう。

Sub E列目の幅を変数Nに格納()

Dim N as Variant

N= Columns(5).Width

End Sub

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

変数Nに「8.11」が格納されていますね。
実際に列の幅を確認すると「8.11」なので機能している事がわかります。

・活用方法

では先程取得した列の幅を活用してみましょう。

今回は見本としてB列目の幅をDからF列目にも反映させてみたいと思います。

ではプログラムです。

Sub B列の幅をDからF列目に反映()

Dim N as Variant,A as Long

N= Columns(2).ColumnWidth

For A＝4 to 6 step 1
Columns(A).ColumnWidth=N
Next A

End Sub

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

狙い通りB列目の幅をDからF列目に反映させる事ができました。

・複数列の列の幅を取得する

では今度に複数列の列の幅の取得方法を見ていきましょう。
これまではColumnWidthを使用して列の選択をしてきましたが、ColumnWidthは1行のみしか対応出来ないので「Width」を使用します。

ここで再度、「ColumnsWidth」と「Width」の違いを見てみましょう。

ColumnsWidth：既定フォントの文字数。列の幅を決める際はこちらの数値となる
Width：行の高さと同じ「ポイント」と呼ばれる単位

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

使用方法としては
変数・出力先= Columns(“先頭列の英字:最終列の英字”). Width
のように使用します。

では例をみていきましょう。

今回はC列目からE列目までの列の幅をまとめて取得してみたいと思います。

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

Sub C列目からE列目までの幅を変数Nに格納()

Dim N as Variant

N= Columns(“C:E”). Width

End Sub

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

CからE行目の列の幅の和は「144」ポイントという事がわかりました。

⬛︎応用について

これまでは行の高さ・列の幅の取得から活用まで見てきました。
そこで行の高さと列の幅の単位の違いもわかりましたね。

この違いで、例えば正方形のセルを作るにはひと工夫必要になります。

より詳しい違いや長さを揃えるためにはといった内容で別の記事にまとめてますので参考にしてみてください。

記事はこちらから☟

行の高さと列の幅の数値が異なる理由！単位の説明や長さを揃えて正方形にする方法など ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

Slicer.RowHeight プロパティ (Excel) | Microsoft Learn

Range.ColumnWidth プロパティ (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
行の高さ・列の幅を取得して他の行・列にも反映させたりなど様々な事ができますね。

ぜひ活用してみてください。

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

通常の操作での行の高さ・列の幅を変更についてはこちらから☟

文字が長く隠れてしまったら…列の幅・行の高さを手動/数値で任意の幅/高さに変更・または自動調整する ► 独学エクセル塾 (dokugakuexcel.com)

行・列の挿入についてはこちらから☟

【マクロVBA知識 15】行の挿入・削除/列の挿入・削除を様々なパターン・方向で行う ► 独学エクセル塾 (dokugakuexcel.com)

そこで今回はVBAを使用して行の高さ・列の幅を変更する方法を紹介したいと思います。

ポイント・センチ・自動調整・複数行／列それぞれまとてますのでぜひ参考にしてみてください。

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

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

赤文字と青文字をカスタムして使用してください

・行の高さ

Sub 行の高さを変更()
Rows(行番号).RowHeight=変更したい高さの数値
End sub

・列の幅

Sub 列の幅を変更()
Columns(列番号).ColumnWidth =変更したい列の幅の数値
End Sub

■行の高さを変更する

まず、行の高さを変更する方法から紹介したいと思います。

・指定した行の高さを変更する(ポイント)

まずポイントから説明するとエクセルで使用される『1ポイントは0.3528mm』です。
内訳として1ポイントは1／72インチであり
1インチは25.4mmです。
では実際に変更してみましょう。

行の高さを変更するプログラムは下記の通りです。

Rows(高さを変更したい行数).RowHeight=変更したい高さの数値

とてもシンプルですねRowの後に高さを変更したい行番号を入力し、RowHeightの=の後の数値を変更したい高さの数値に変更すれば行の高さを任意の数値に変更する事ができます。

では見本のプログラムを見てみましょう。
今回は3行目の高さを20にしたいと思います。

Sub 行の高さを変更()

Rows(3).RowHeight=20

End sub

実行前と実行後の結果はこちらです。

狙い通り、3行目の高さを20にする事が出来ました。

・指定した行の高さを変更する(センチ)

先程はポイントを用いた変更方法を紹介しましたが
今度はセンチ（㎝）での行の高さの変更方法を紹介したいと思います。

今度は3行目の高さを5cmにしたいと思います。

先程のプログラムと比較すると『Rows(3).RowHeight=』
までは同じなのですがこの後に
『Application.CentimetersToPoints(センチで変更したい行の高さの数値)』
を追加します。
英語の通りですが、これまでのポイントで変更していた数値をセンチに変える効果を持っています。

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

Sub 行の高さをセンチで変更()

Rows(3).RowHeight= Application.CentimetersToPoints(5)

End sub

実行前と実行後の結果はこちらです。

狙い通り、3行目の高さを5センチにする事が出来ました。
1ポイントは0.3528mmなので5センチは141.8ポイントになります。

・行の高さを自動調整する

今度は自動調整を見てみましょう。
こちらのプログラムはシンプルです、

Row(自動調整したい行番号).AutoFit

自動調整したい番号を入力してAutoFitでセル高さを自動で変更してくれます。
では実際にプログラムを作成してみましょう。

今回は見本で3行目の高さを自動調整したいと思います。

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

Sub 行の高さを自動で変更()

Rows(3).AutoFit

End sub

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

これでVBAで自動調整が出来るようになりました。

・複数行まとめて調整する

これまでは1つの行のみ調整してきましたが
複数行を1度に変更することも可能です。

下記に見本をのせておきます。

6行目から12行目までを14ポイントにする

Rows(“6:12”).RowHeight=14

7行目から10行目を12センチにする

Rows(“7:12”).RowHeight= Application.CentimetersToPoints(12)

2行目から8行目まで自動調整する

Rows(“2:8”).AutoFit

■列の幅を変更する

では次に列の幅を変更する方法を紹介したいと思います。

・指定した列の幅に変更する(ポイント)

まずはプログラムから見てみましょう。
列の幅を変更するプログラムは下記の通りです。

Columns(幅を変更したい列数).ColumnWides=変更したい列の幅の数値

行の高さがRowだったのに対し列の幅はColumnsになります。Columns の後に変更したい列数を入力し、
ColumnWidthの=の後の数値を変更したい幅の数値に変更すれば列の幅を任意の数値に変更する事ができます。

では見本のプログラムを見てみましょう。
今回は2行目の幅を5にしたいと思います。

Sub 列の幅を変更()

Columns(2).ColumnWidth = 5

End Sub

実行前と実行後の結果はこちらです。

狙い通り、2行目の高さを5にする事が出来ました。

・指定した列の幅を変更する(センチ)

行の高さ同様、列の幅をセンチ（㎝）で変更する方法も紹介したいと思います。

今度は4列目の幅を2センチにしたいと思います。

こちらも『Columns(幅を変更したい列数).ColumnWidth=』
までは同じなのですがこの後に
『Application.CentimetersToPoints(センチで変更したい行の高さの数値)』
を追加します。

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

Sub 列の幅を変更()

Columns(4).ColumnWidth = Application.CentimetersToPoints(2)

End Sub

実行前と実行後の結果はこちらです。

ここで注意点として本来であれば2センチは「20/0.3528」で「56.689」となります。
※1ポイントは0.3528mmのため。
しかし列の幅は「56.67」になっています。
これは列の機能上、誤差が生まれる仕組みです。正確なセンチで幅を調整できないことを覚えておいてください。

・列の幅を自動調整する

今度は列の幅を自動調整してみましょう。
こちらもプログラムは行の高さの方法と大差ありません。

Columns(自動調整したい列番号).AutoFit

自動調整したい番号を入力してAutoFitでセルに入力した文字・数値に合わせて幅を変更してくれます。
では実際にプログラムを作成してみましょう。

今回は見本で2列目の高さを自動調整したいと思います。

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

Sub 列の幅を自動で変更()

Columns(2).AutoFit

End sub

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

調整できていますね。

列の幅の調整は使用頻度も多いと思うので
ぜひ活用してみてください

・複数列まとめて調整する

これまでは1つの列のみ調整してきましたが
複数列を1度に変更することも可能です。

下記に見本をのせておきます。

6(F)列目から12(L)列目までを14ポイントにする

Columns(“F:L”).ColumnWidth = 14

7(G)列目から10(J)列目を12センチにする

Columns(“G:J”).ColumnWidth = Application.CentimetersToPoints(3)

2(B)列目から8(H)列目まで自動調整する

Columns(“B:H”).AutoFit

⬛︎公式の説明

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

Slicer.RowHeight プロパティ (Excel) | Microsoft Learn

Range.ColumnWidth プロパティ (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
行の調整や列の調整は文字が長くなれば必要な知識になってきます。

普段行っている行の高さと列の幅の調整がVBAを使用して自動で行えるのでぜひ活用してみてください。

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

行・列の挿入は項目が増えた際に行を増やしたり、

データの並び替えの際に使用できますよね。

さらにデータを蓄積していくファイルでも役に立つと思います。

複数挿入・削除や指定範囲の挿入・削除など様々なパターンを説明してますので
ぜひ参考にしてみてください。

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

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

・行の挿入

Rows(挿入したい行番号).Insert

・行の削除

Rows(削除したい行番号).Delete

・列の挿入

Columns(挿入したい列番号).Insert

・列の削除

Columns(挿入したい列番号).Delete

■行の挿入・削除を行う

・指定した行に挿入を行う

まずは指定した行に挿入をしていきましょう。

説明用に下記のような表を用意しました。こちらに挿入を行いたいと思います。

例として3行目に行の挿入を行いたいと思います。
VBAのプログラムで表すとこのようになります。

Rows(3).Insert

Rows(3):３行目の行を対象とする
Insert:挿入を行う

では実際に打ち込んでみましょう。

Sub 行の挿入()

Rows(3).Insert

End Sub

こちらを実行すると下図のようになります。

３行目に新しく行が挿入されました

ちなみにRowsのかっこ内は変数でも機能してくれます。

・指定した範囲に行の挿入を行う

今度は指定した範囲で行の挿入を行ってみたいと思います。
行の挿入では「Ｒows」を使用しましたが、範囲を指定する際は「Range」を使用します。

今回は「C3からE3」に行の挿入を行ってみたいと思います。

VBAのプログラムで表すとこのようになります。

Range（指定範囲）.Insert

今回は「C3からE3」なのでこのようになります。

Range(“C3:E3“).Insert

では実際に打ち込んでみましょう。

こちらを実行すると…

うまく挿入できていますね。変数を使用するのであればCellsを活用すれば
指定範囲を変数を使用しても挿入できるようになります。

・複数の行を挿入する

通常の挿入でも複数の行の挿入はできますがVBAでも可能です。
行挿入で複数行挿入する際は「Ｒows」でも「Ｒange」でもどちらでも構いません

では見本で３行目から６行目まで行挿入を行ってみたいと思います。

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

Sub 行の挿入()

Rows(“3:6“).Insert

End Sub

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

３行目から６行目まで行を挿入できました。

・行の削除を行う

先ほどまで行の挿入について説明しましたが
行の削除について説明していきたいと思います。

挿入では「Insert」でしたが削除は「Delete」を使用します。

下記のデータを参考にしてみてみます。

では「４行目」を削除してみましょう。

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

Sub 行の削除()

Rows(4).Delete

End Sub

実行するとこのようになります。

４行目を削除することができました。

複数行や指定範囲の行を削除する場合は挿入で使用した方法で
「Insert」から「Delete」に変更すれば対応できます。

■列の挿入・削除を行う

・指定した列に挿入を行う

先ほどは行に挿入を説明しましたが次は列の挿入をしていきましょう。

今回も下記のデータをもとに説明していきたいと思います。

今回はＤ行に挿入をしてみたいと思います。
VBAのプログラムで表すとこのようになります。

Columns(4).Insert

Columns(4):4列目(D列）の列を対象とする
　　 Insert:挿入を行う

ＤはAから数えると「4」番目なのでColumns(4)となります。
では実際に打ち込んでみましょう。

Sub 列の挿入()

Columns(4).Insert

End Sub

実行すると..

D行に列を挿入することができました。
ちなみにこちらも変数を使用することが可能です。

・指定した範囲に行の挿入を行う

今度は指定した範囲に行の挿入を行ってみたいと思います。
今回は「E3からF3」に列の挿入をしてみましょう。

範囲を指定する際は「Range」または「Cells」を活用してください。

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

Range(“E3:F3“).Insert SHIFT:=xlShiftToRight

「 SHIFT:=xlShiftToRight」は右方向へ挿入します。

では入力してみましょう。

実行するとこのようになります。

指定した範囲分、挿入することができました。

・複数の列を挿入する

今度は複数の列を挿入してみましょう。
見本で「D・E・F」列に挿入してみましょう。
プログラムはこのようになります。

Sub 列の挿入()

Range(“D:F“).Insert

End Sub

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

複数行挿入できましたね。

・列の削除を行う

列の削除も見てみましょう。
仕組みは行の削除と同様です。

「Insert」を「Delete」に変更します。

では下図のD列を削除してみましょう。

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

Sub 列の削除()

Columns(4).Delete

End Sub

実行するとこうなります。

D列を削除することができました。

■行・列の挿入削除の方向を指示する

行や列を範囲を指定して挿入・削除する際に
通常、列か行で選択範囲が小さい方に挿入されます

例えば「B4:B8」で挿入すると行は１行で列は4列あるので行方向に挿入されますし、
「B4:E4」であれば行は４行で列は１行なので列方向に挿入されます。

しかし、作りたいプログラムが必ずしもそうとは限りませんよね。
なのでその際は挿入削除方向を指示しないといけません。

一覧を下記に示します。

・挿入を行方向にする　　SHIFT:=xlShiftDown

Range(“D4”).Insert SHIFT:=xlShiftDown

・挿入を列方向にする　　SHIFT:=xlShiftToRight

Range(“D4”).Insert SHIFT:=xlShiftToRight

・削除を行方向にする　　SHIFT:=xlShiftUp

Range(“D4”).Delete SHIFT:=xlShiftUp

・挿入を列方向にする　　SHIFT:=xlShiftToLeft

Range(“D4”).Delete SHIFT:=xlShiftToLeft

SHIFTで列・行方向への挿入・削除が選べるようになりました。
これで様々なパターンにも対応できますね。

■変数を活用する

では変数の活用方法を見ていきましょう。

先ほどまでは列番号や行番号を活用しました。

この行・列番号は変数でも代用が可能です。

では下記ソースコードを見ていきましょう。

Sub 行の挿入()
Dim n As Long
n = 5 'ここに挿入したい行番号を入力
Rows(n).Insert
End Sub

見本では変数ｎに「5」を格納していますね。

そこに「Rows(n).Insert」で変数「n」を行番号と応用することで

５行目に行を挿入することが可能です。

■繰り返し動作

繰り返し動作で複数回挿入や削除することも可能です。

下記ソースコードをご参照ください。

Sub 行の挿入()
Dim n As Long
For n = 1 To 5 Step 1
Rows(3).Insert
Next n
End Sub

For Nextを活用することで繰り返し「３行目」に行の挿入をしています。

1から5回繰り返すので５回行の挿入をすることになります。

⬛︎公式の説明

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

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

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

■まとめ

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

行・列の基本的な挿入・削除の流れが分かったと思います。
さらに行・列方向のどちらに挿入・削除が理解できれば複雑なシステムも作成できるようになります。

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

次回の記事ではブック操作についてまとめています。

【マクロVBA知識 16】ブックを開く・作成・名前の変更・フォルダの移動・保存・閉じる ► 独学エクセル塾 (dokugakuexcel.com)

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