Sub a() LR = Cells(Rows.Count, "A").End(xlUp).Row For r = 2 To LR s = Cells(r, 1) p = InStr(s, "-") If p = 0 Then s1 = s c = "" ElseIf p < 10 Then s1 = Right(s, Len(s) - p - 1) c = Left(s, p - 1) ElseIf p > 10 Then s1 = Left(s, p - 1) c = Right(s, Len(s) - p - 1) End If Cells(r, 4) = s1 Cells(r, 5) = c Next End Sub |