Replaceの使用例

ユーザーフォームで指定したセルの値がが該当の値の時置き換える

Check_Row = Val(Label10)
Check_Column = Val(Label11)
    Sheets(1).Cells(Check_Row, Check_Column).Replace What:="△", Replacement:="▲"
    Sheets(1).Cells(Check_Row, Check_Column).Replace What:="☆", Replacement:="★"
    Sheets(1).Cells(Check_Row, Check_Column).Replace What:="□", Replacement:="■"