| |
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列に名称の（置き換え前）と（置き換え後）のテーブルを
作成してコードを作るのも検討したく思いますが、どのように
参照させ置き換えればよいかお願いします。
|
|
Pi
- 06/8/19(土) 14:02 -
