VBA颜色转换 中英互译

英转中

Sub 颜色英中转换()
    Cells.Replace What:="White and Black", Replacement:="白+黑"
    Cells.Replace What:="Rose Red", Replacement:="玫红"
    Cells.Replace What:="AS PIC", Replacement:="如图"
    Cells.Replace What:="Darkblue", Replacement:="深蓝"
    Cells.Replace What:="Flesh", Replacement:="肉色"
    Cells.Replace What:="Brown", Replacement:="棕色"
    Cells.Replace What:="Black", Replacement:="黑色"
    Cells.Replace What:="White", Replacement:="白色"
    Cells.Replace What:="Clear", Replacement:="透明"
    Cells.Replace What:="Grey", Replacement:="灰色"
    Cells.Replace What:="Pink", Replacement:="粉色"
    Cells.Replace What:="Fuchsia", Replacement:="玫红"