EXCELの一覧表の特定文字を別の文字に置き換えるマクロ

Question

前提・実現したいこと

EXCELで作成した一覧表があります。100行でED列まであります。N2からED100までのセルに
文字列があります。あるセルに「混り」という文字が見つかったら「混じり」
という送り仮名に置き換えるマクロを作成したいと思っています。よろしくお願い致します。

発生している問題・エラーメッセージ

N列単体では作成できたのですが、ED列まで展開するやり方が分かりません。N列からED列まであり、
文字列はN列から4列おきにR列、V列、Z列～ED列となっています。

該当のソースコード

Sub 文字を置き換える1()

Dim i As Long
For i = 2 To 100
Cells(i, 14) = Replace(Cells(i, 14), "混り", "混じり")
Next i
End Sub

試したこと

上記のマクロを32個作成し、callで繋げた。一つのマクロ纏めたい。

補足情報（FW/ツールのバージョンなど）

Win10　EXCEL2016

Answer 1

文字列が他の列にないのであれば下記のようにまとめることも可能です。

Sub 文字を置き換える1()

Range("N2:ED100").Replace "混り", "混じり"

End Sub

Comments

[ishiro]

ご回答ありがとうございます。問題なく実行できました。返信が遅れすみません。

[radames1000]

それは良かったです。ベストアンサーを選んで解決済みにしてくださいね。

Answer 2

横方向の繰り返しを入れると実現できます。

Sub 文字を置き換える2()
    Dim i As Long, j As Long
    For i = 2 To 100
        For j = 14 To 134 Step 4 '4つずつ増える
            '.Value を付けたほうが良いです。
            Cells(i, j).Value = Replace(Cells(i, j).Value, "混り", "混じり")
        Next j
    Next i
End Sub

Comments

[ishiro]

早速のご回答ありがとうございます。確認し上手く出来ました。ご丁寧な説明感謝いたします。