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

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

No.4 ベストアンサー 回答者： ribisi 回答日時： 2003/03/07 12:41

#2です。

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

検索文字列に

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

置換文字列に

6\1

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

この回答へのお礼

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

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

お礼日時：2003/03/07 12:50

No.5 回答者： ribisi 回答日時： 2003/03/07 13:03

よかった。

できましたか。

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

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

この回答へのお礼

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

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

お礼日時：2003/03/07 13:08

No.3 回答者： nishi6 回答日時： 2003/03/07 11:31

置換えしたいセル範囲を選択して下のマクロを実行します。

こういう質問だったのでしょうか。


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

この回答へのお礼

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

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

お礼日時：2003/03/07 12:05

No.2 回答者： ribisi 回答日時： 2003/03/07 11:03

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

検索文字列に

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

置換文字列に

6\0\1

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

この回答へのお礼

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

お礼日時：2003/03/07 12:04

No.1 回答者： asaichi 回答日時： 2003/03/07 09:29

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

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

この回答へのお礼

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

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

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

お礼日時：2003/03/07 11:52