たとえば範囲全てに同じ文字を追加したい場合など、通常のExcel操作ではかなり手間がかかります。これをマクロでやってしまおうという記事です。
For nextの追加的な内容となります。
For each文の使い方
範囲に繰り返し同じ操作をする
for each 変数 in 対象
（処理）
next
for each 変数 in 対象
（処理）
next
さて、この4つの頭に㈱をつけてみたいと思います。
式としてはこうなります。いきなり全部書きましたが、上から解説します。
Dim kabuまずDimは変数の作成を意味します（今回はOption Explicitを省略してますが、本当は付けます。詳しくはリンク先参照）。
変数というのは、数式でいうxとかyとかアレです。処理的にセルの値を一回変数kabuに入れて、それに文字をくっつけてセルに代入する、というような処理を行う前準備です。変数名は別にkabuである必要はないです。
変数というのは、数式でいうxとかyとかアレです。処理的にセルの値を一回変数kabuに入れて、それに文字をくっつけてセルに代入する、というような処理を行う前準備です。変数名は別にkabuである必要はないです。
For Each kabu In Range("A1:A4")二行目。For eachで繰り返し実行する旨宣言しています。
For Each kabu In Range("A1:A4")A1～A4の中（in）の「kabu」に対して行うよ、と言ってますが、言い換えればA1～A4の各セルを一回ずつ変数kabuに代入していき、それが終わるまで処理を繰り返すという意味になります。
kabu.Value = "㈱" & kabu.Value三行目。Valueを使ってkabuの値に何かを代入する旨命令しています。
kabu.Value = "㈱" & kabu.Value代入する値は、㈱とkabuの値をくっつけたものです。数学の式としてはおかしいですが、マクロの式としてはOKです。
NextNextまで行くと、まだ行える処理が残っている場合、For eachへ戻ります。
実行するとこうなります。よくわからない人は、とりあえずコピペして範囲と値を差し替えてくれれば動きます。
Dim kabu
For Each kabu In Range("A1:A4")
kabu.Value = "㈱" & kabu.Value
Nextもう一個やってみましょう。
今度はB1～B4の値に、それぞれ5を足してみたいと思います。
さっきとほとんど同じですが、範囲と、変数に数字を足す処理になっています。
Dim kabu
For Each kabu In Range("B1:B4")
kabu.Value = kabu.Value + 5
Next
実行すると、範囲内の数値にそれぞれ5が足されました。
For each in文を使って範囲に同じ処理をする方法については以上です。
Excel（エクセル）：反復、リピート、繰り返し、ループ
Excel……というかPCは、同じことを文句も言わずに何度も繰り返すのが大の得意です。ぜひその特性を活用したい、活用しよう、活用せねばというまとめです。
反復（手動）
Ctrl+Y（またはF4）を使い、直前の操作を繰り返す方...
sunagitsune.com
2021.04.23
関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ
こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。
sunagitsune.com
2018.12.30
コメント