(آموزشی) جدا سازی نام ها از یکدیگر

[ali.b]

سلام
حتما برای ما پیش اوده که نیاز داریم کلماتی که در یک سلول درج شدند رو تفکیک کنیم مانند تفکیک نام و نام خانوادگی

ساده ترین راه استفاده از توابع هست اما در این بخش اگه نام و نا خانوادگی یا کلا هر جمله ای تعدادشون متناوب باشه باید برای هر تفکیک شدن یک فرمول نوشت که کار راحتی نیست
این کد زیر تمام کلماتی که با یک space از یک دیگر جدا شده باشن رو برای ما تفکیک میکنه حالا هر تعدادی باشه مهم نیست

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.