
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
|
