|
▼Hoppy さん:
>ゆみこんさん、おはようございます。
>オートフィルターを使用するんですね。
>全く気がつきませんでした。
>発送の転換、大変参考になりました。
>なかなか柔軟な考えができないんですよね〜。
>これからもよろしくお願いします。
>ありがとうございました。
もう蛇足になってしまいますが、気づいたのでコメントさせて下さい。
「現在の発想は、頭から目的のセルを探して、その横のセルの文字を置換する。
これをデータのある最終行までループで行う。」
ということだと思いますが、ちょっと別な発想をしてみませんか?
もし、マクロでなく一般操作でご希望の処理を実現しようとしたら、
あなたなら、どんな手順になりますかね。
私なら、AutoFilterでデータを絞り込んでから、特定列に対して置換(Ctrl+H)という手順が浮かびます。
あとは、この操作のマクロ記録を取ればいいと思います。
出来上がるコードは、Replace関数ではなく、RangeクラスのReplaceメソッドによる置換コードになります。
少し、大雑把ではありますが、ループしない別法です。
With Worksheets("data").Range("A1").CurrentRegion
.Worksheet.AutoFilterMode = False
.AutoFilter 1, "藤田屋"
.AutoFilter 2, "石川県*" 'B列で絞る必要がなければ不要です。
.Columns("B").Replace "金沢", "新潟", xlPart
.Worksheet.AutoFilterMode = False
End With
|
|