EXCEL'DE BİR HÜCREDEKİ İSİM VE SOYİSİM BİLGİLERİNİ VBA İLE AYIRMAK

SUB ISIMAYIRMA()
 Dim degerimiz() As String
  Range("a1").Select
   Do While Not IsEmpty(ActiveCell)
         degerimiz() = Split(ActiveCell.Value)  'split fonksiyonu isimleri birbirinden ayırıyor.. ve her bir isme başlangıçta 1 den kaçtane var ise sıralıyor.
         
          For i = LBound(degerimiz) To UBound(degerimiz)  'Lbound bir değişkendeki en küçük değeri burada 1 değerine dönüşüyor... UBound ise en büyük değeri alıyor ve döngüye başlanıyor.
         
                MsgBox degerimiz(i) 'burada ben msgboxa dönen değerleri yazdırdım görebilmek amacıyla.. burayı silip kullanmak istediğiniz yere yazabilirsiniz..
         
         Next i

ActiveCell.Offset(1, 0).Select
Loop
END SUB