Tek hücre Adres değerinin makro üzerinden çoklu hücre değerine nasıl bölüneceği

-1

Aşağıdaki tek hücre değeri makro ile çoklu hücre değerine nasıl bölünür?

Yani bu ...

A1 = MISS FirstName LastName***95*SPECIAL ROAD**LONDON SW92**SW929AB

... aşağıdaki gibi ayrılmalıdır,

B1 = MISS
C1 = FirstName 
D1 = LastName
E1 = 95 SPECIAL ROAD
F1 = LONDON SW92
G1 = SW929AB

Herhangi biri bu konuda yardımcı olabilir?

— user323020
kaynak

Orada paylaştığın gerçek kişisel veriler mi? Böyle bir durumda çıkarmanızı şiddetle tavsiye ederim.

— slhck

sınırlayıcılarınız 1'den uzun olan boşluklar ve yıldız dizeleridir. Ama sürekli değil?

— Raystafarian

Veriler, yapının inceliğini sürdürdüğü sürece, önemsiz olanıdır. Kullandığınız verilerin gerçek olup olmadığını söyleyemediğimiz için, onu düzenledim.

— Dave

Verdiğiniz demo ve "Aşağıdaki gibi tek hücre değerinin üstündeki makro ile birden çok hücre değerine nasıl bölünür?" Yazdığınız gerçeğine dayanarak, bu tam olarak

Sub Button1_Click()
Dim address() As String
address() = Split(Range("A1").Value, "**")

Dim col As Integer
col = 66

    For Each Item In address

        If (col = 66) Then

            For Each Name In Split(Item, " ")
                Range(Chr(col) & 1).Value = Trim(Name)
                col = col + 1
            Next Name

        Else

        Dim newValue As String
        newValue = Replace(Item, "*", " ")

            If (newValue <> "") Then
                Range(Chr(col) & 1).Value = Trim(newValue)
                col = col + 1
            End If

        End If

    Next Item

End Sub

— Dave
kaynak

Bu Gerçekten mi boyutsuz bir dizi kullanılmasına rağmen zekice. +1

— Raystafarian