soyad adı-ad soyad şeklinde düzenleme

[uurc1]

Elimde yaklaşık 2000 tane a stununda yer alan soyad, ad şeklinde yazılmış liste var bunu ad soyad olarak düzenlemek istiyorum.
örneğin.
YELKENCİ, MESUT yazan değeri MESUT YELKENCİ olarak nasıl yeniden düzenleyebilirim.

 

[PLİNT]

Merhaba
"A" sütununda, yukarıdaki gibi soyadından sonra hepsinde "," varsa aşağıdaki makro ile olabilir.

Sub ayır()
For a = 1 To Cells(Rows.Count, 1).End(3).Row
If Not Cells(a, 1).Find(",", lookat:=xlPart) Is Nothing Then
b = Split(Cells(a, 1), ",")(1)
b1 = Split(Cells(a, 1), ",")(0)
Cells(a, 1) = Trim(b) & " " & b1
End If
Next
End Sub

 

[uurc1]

Merhaba
"A" sütununda, yukarıdaki gibi soyadından sonra hepsinde "," varsa aşağıdaki makro ile olabilir.

Sub ayır()
For a = 1 To Cells(Rows.Count, 1).End(3).Row
If Not Cells(a, 1).Find(",", lookat:=xlPart) Is Nothing Then
b = Split(Cells(a, 1), ",")(1)
b1 = Split(Cells(a, 1), ",")(0)
Cells(a, 1) = Trim(b) & " " & b1
End If
Next
End Sub

Hocam tam istediğim gibi teşekkür ederim