Sub test01() Fr = Range(

質問

Sub test01()
Fr = Range("A1").End(xlDown).Row
LR = Range("A100000").End(xlUp).Row
For i = Fr + 1 To LR
If Cells(i, "A") Like " *" Then
Cells(i, "A").Replace What:="", Replacement:="", LookAt:=xlPart, MatchCase:=True
End If
Next i
End Sub

""の中には置換前後の値が入る スペースとは限らない
各行のセルの1番最初の文字の塊を置換するこのマクロは一度に一値しか置換できませんが一度に10ぐらいの多くの値を置換できるよう改造したマクロを教えてください
このマクロは１から1000000行のセルの一番左1番最初の文字の塊だけを置換できるので普通の置換とは違います　違いはすべての場所で置換されるかセルの一番左1番最初の文字の塊だけ置換されるかです
ああああああ　があって　あ　を　い　に普通に置換すると　いいいいいいい　になりますがこのマクロで置換すると　いあああああ　になります

回答No.1

SI299792 · ベストアンサー

済みません、前回失礼な回答をしてしまいました。

１番左というのは２通りの解釈ができて、この例だとどっちかか判りません。
元の文字：かああああ
検索文字：あ
置換文字：い
の場合、

「あ」は１番最初に出てきますが２文字目です。
この場合痴漢して「かいあああ」になるのか
それとも２文字目だから置換しないのか。

前回の経験で、貴殿はプログラムの説明を読んでくれないので、はっきりしてから上げます。

補足

あ　は2文字目なので　かああああ　はそのまま変化なく置換したくありません　　文字別に文字数を数えるというのではなくセル内で　一番右　一番最初　に出てくるという基準で指定した値の塊を置換したいです　値の塊は一文字とは限りません　たとえば　ああああああ　を検索文字　ああああ　置換文字　空白　の時　結果は　ああ　にしたいです