次のケースでのVBAマクロコードを教えて下さい。 A列 B列 C列 1 項目コード 項目名 備考 2

次のケースでのVBAマクロコードを教えて下さい。

A列 B列 C列
1 項目コード 項目名 備考
2 10 A商品 一般
3 21 A商品 特殊
4
5

上記のように、商品コードは別々なのですが
商品名が同じなので、マクロで一気にB列の
商品名を次のように変えたいのです

例
商品コード10ならばA商品（一般）
商品コード21ならばA商品（特殊）

※商品コードは最大でも100種類
※同一の商品名は最大でも50個

マクロ実行で一気に書き換えするマクロコードを
お願いします。
なお、商品コードと商品名はエクセルデータがありますので、そのシートを参照できればとも思います。

まとまりが無い説明で、すみません。

質問者からの補足コメント

• C列の備考欄ありませんでした。

    補足日時：2017/05/26 18:20

• ご指摘の通りです。
  参照用の別ファイルです。
  A列に商品コード、B列に商品名となっています

    補足日時：2017/05/26 22:25

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2017/05/27 11:11

こんにちは。

>C列の備考欄ありませんでした。
つまり、
項目コード→商品コード
項目名→商品名　

で書き換えるというわけですね。

'//標準モジュールがベターです
Sub RenameDescription()
Application.ScreenUpdating = False
With ActiveSheet
'スタートは2行目から
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
　If .Cells(i, 1).Value = 10 Then
　　 .Cells(i, 2).Value = .Cells(i, 2).Value & "(一般)"
　ElseIf Cells(i, 1).Value = 21 Then
　　 .Cells(i, 2).Value = .Cells(i, 2).Value & "(特殊)"
　End If
Next
End With
Application.ScreenUpdating = True
End Sub

この回答へのお礼

ありがとうございます
感謝感謝です。
助かりました。

お礼日時：2017/05/30 18:34

No.1 回答者： GooUserラック 回答日時： 2017/05/26 18:44

・「項目コード」が「商品コード」、「項目名」が「商品名」でよろしいでしょうか？

・「商品コードと商品名はエクセルデータ」とは、どのシートに有ってどんなレイアウトになっているのでしょうか？
例えば、シート名は「参照用」、A列には「商品コード」、B列には「商品名」が書かれている。とか…