جدا نمودن نام و نام خانوادگی در اکسل

[ali.b]

سلام
ی فایل دارم که تو ی ستون اسم با فامیلی با کاراکتر فاصله از هم جدا شند که با فرمول عای زیر قابل تفکیک هست

=left(b2,find(" ",b2,1)-1) 

=RIGHT(B2,LEN(B2)-FIND(" ",B2,1)) 

اما سوال من اینه که گاهی پیش میاد در بین این اسم ها فقط ی تک اسم یا فامیلی وجود داره چه تغییری باید در فرمول ها ایجاد کنم تا مثلا نوشته علی همون علی رو بیاره
ممنونم

[ali.b]

Sub foo()
Dim varArr As Variant
Dim i As Long, strArr() As String
Application.ScreenUpdating = False
With Worksheets(1)
    Let varArr = .Range(.Cells(1, 1), _
        .Cells(.Rows.Count, 1).End(xlUp)).Value
    If IsArray(varArr) Then
        For i = LBound(varArr, 1) To UBound(varArr, 1)
            Let strArr() = Split(varArr(i, 1))
            Let .Cells(i, 2).Resize( _
                , UBound(strArr) + 1).Value = strArr
            Erase strArr
        Next
    Else: .Cells(1, 2).Resize(, 2).Value = Split(varArr)
    End If
End With
Application.ScreenUpdating = True
End Sub

این کد vb

[Ali Parsaei]

کد VB براي چي؟!!!
اينها را استفاده کنيد ببينيد درست مي شود:

=IFERROR(LEFT(A1;FIND(" ";A1;1)-1);LEFT(A1;LEN(A1))) 

=IFERROR(RIGHT(A1;LEN(A1)-FIND(" ";A1;1));"") 

البته اگر يک فاصله اضافه آخر نام خانوادگي ها باشد فکر کنم بايد يک تابع TRIM هم در فرمولها اضافه کنيم