Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 5 Or Target.Column = 6 Thentmp = Target.ValueIf InStr(tmp, "A") + InStr(tmp, "B") + InStr(tmp, "C") > 0 Then Target = Replace(Replace(Replace(tmp, "A", 1), "B", 2), "C", 3)End IfEnd Sub...
|