ＶＢＡスクリプトの置換のことで

質問

エクセルのＶＢＡスクリプトのある文字を置換したいのですが。
内容としては、５０１～５２０までの数字を６０１～６２０に一括変換したいのです。
そのような機能がＶＢＡエディターにあるでしょうか？
場合によっては他のソフトを用いてもけっこうです。
宜しくお願いします。

回答No.4

ribisi · ベストアンサー

#2です。
すいません、間違えました。

検索文字列に

5\f[0-2][0-9]\f

置換文字列に

6\1

と入れて、「正規表現」のチェックボックスをチェックして、
全置換してみてください。

お礼

ありがとうございました。
できました！

一つ質問してもいいでしょうか？
５０１～５２０　→　６３４～６５３　のような置換は無理ということでしょうか？

回答No.5

ribisi

よかった。できましたか。

> ５０１～５２０　→　６３４～６５３　のような置換は無理

上記の場合ですと、文字列の置換ではなく、
一度、文字を数値に直して、133を加える、という操作になりますね。
こうなると、テキスト処理ではなくなりますので、
スクリプトを書く必要があります。
VBスクリプトでもいいですし、秀丸マクロでもできます。

お礼

＞こうなると、テキスト処理ではなくなりますので、
＞スクリプトを書く必要があります。
また改めて質問してみたいと思います。

ありがとうございました！！

回答No.3

nishi6

置換えしたいセル範囲を選択して下のマクロを実行します。
こういう質問だったのでしょうか。

Sub Okikae501_520()
　　Dim rg As Range

　　For Each rg In Selection
　　　　If 501 <= rg.Value And rg.Value <= 520 Then
　　　　　　rg = rg + 100
　　　　End If
　　Next
End Sub

お礼

ありがとうございました。

＞こういう質問だったのでしょうか。
違うみたいです(^^;

回答No.2

ribisi

もし秀丸エディタをお持ちでしたら、VBAスクリプトをコピーし、
検索文字列に

5\f[0-2]\f\f[0-9]\f

置換文字列に

6\0\1

と入れて、「正規表現」のチェックボックスをチェックして、
全置換してみてください。

お礼

ありがとうございました。
早速秀丸エディタをインストールして試してみました。
教えてもらった通りに実行してみると、以下の結果になりました。
５０１～５２０の数字が、
６５０　　９個
６５１　１０個
６５２　　１個
でした。

回答No.1

asaichi

置換したい文字が他の文字と関係はないのでしょうか？
例えば501だったら「ITEM0501」という感じに…。
なければ、複数置換というエディタのあるので、やれば
良いと思います。
例えば、MIFESSにもその機能はあります。
VBAスクリプトはテキストファイルで保存されていない
（EXCEL97の場合）ので、C&Pでやるしかありませんが…。
そうすれば、２０回繰り返さなくても、数回の作業でで
きます。

お礼

ありがとうございました。

＞置換したい文字が他の文字と関係はないのでしょうか？
関係ないです。

MIFESを早速インストールして試してみました。
複数置換はできましたが連番置換はできないみたいです。
(置換前と後の文字を全て手入力する必要があるようです)
それでもかなり手間は省けそうです。