Excel で、5段階評価の数字を文字に置換する。

この記事は、自分用の覚え書きです。

●Excel で、5段階評価の数字を文字に置換するVBA ( Excel2003 )
・シート名は「評価一覧」
・セルA2から行方向に被評価者の氏名が入っている。
・シートの1行目には、B1から列方向に評価項目名が入っている。
・氏名と評価項目が交わる各セルに1から5で評価段階が入っている。

Sub 五段階評価の数字を文字に置換()

Dim mynum As Range

Worksheets("評価一覧").Activate

'入力されているセル範囲を選択。途中に空白セルがあっても最終セルまで選択する。
Range("B2", ActiveCell.SpecialCells(xlLastCell)).Select

For Each mynum In Selection
mynum.Value = Replace(mynum.Value, "5", "優")
mynum.Value = Replace(mynum.Value, "4", "良")
mynum.Value = Replace(mynum.Value, "3", "可")
mynum.Value = Replace(mynum.Value, "2", "やや可")
mynum.Value = Replace(mynum.Value, "1", "劣")

Next mynum

End Sub