Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40158 / 76732

←次へ　｜　前へ→


	【41675】置き換えについて

Pi - 06/8/19(土) 14:02 -


	引用なし

	パスワード

　　　A　　B　　　　　　　　　　　　 G　　　　　　　　　H
　　項目　　　　　　　　　　　　　 (置き換え前)　(置き換え後）
:
11　 OOO　　　　　　　　　　　　　　OOO　　　　　　　AAA
12　 PPP　　　　　　　　　　　　　　PPP　　　　　　　BBB
13　 QQQ　　　　　　　　　　　　　　QQQ　　　　　　　EEE
14　 RRR　　　　　　　　　　　　　　RRR　　　　　　　CCC
:　　　　　　　　　　　　　　　　　 UUU　　　　　　　GGG

分類している名称(例えば｢OOO」や｢PPP」･･･などを→「AAA」や「BBB」に
変更･置き換えをしたく下のようなコードを使っています。
名称が益々増えコードの行が増え続けています。
このコードをもっとシンプルに仕上げる方法を教えてください。

Dim R As Range
Dim MyR As Range

Set MyR = Range("A11", Range("A65536").End(xlUp))
For Each R In MyR

If R.Value = "OOO" Then R.Value = "AAA"
If R.Value = "PPP" Then R.Value = "BBB"
If R.Value = "QQQ" Then R.Value = "EEE"
If R.Value = "RRR" Then R.Value = "CCC"
　　　　　　':
　　　　　　':
Next

またG列に名称の（置き換え前）と（置き換え後）のテーブルを
作成してコードを作るのも検討したく思いますが、どのように
参照させ置き換えればよいかお願いします。

0 hits

▼

【41675】置き換えについて Pi 06/8/19(土) 14:02

≪