たとえば範囲全てに同じ文字を追加したい場合など、通常の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です。
Next
Nextまで行くと、まだ行える処理が残っている場合、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)を使い、直前の操作を繰り返す方...

関数・演算子・メソッド・プロパティ名から探すExcel/VBA(マクロ)使い方・組み合わせ方まとめ
こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。
コメント