Makrolla solut osiin ja taulukoksi

Tarvittavat lähtötidot valitaan tässä InputBoxien sijaan UserFormilla. Tarvitaan kolme TextBoxia ja CommandButtonia (ja oman mielen mukaan muuta):
TextBox1 - erotin
TextBox2 - alue, jolta tiedot luetaan. Alueen voi valita CommandButton1:llä
TextBox3 - solu, josta lähtien tulostetaan. Alueen voi valita CommandButton2:lla
CommandButton1 - tulostaa rivit alkaen
CommandButton2 - päivittää luettavaksi alueeksi valittuna olevan alueen
CommandButton3 - päivittää tulostuksen alkamaan valittuna olevasta solusta

UserForm1 aukeaa makrolla riveiksi ja jää näkyviin kunnes se suljetaan. Oletuksena tulostettavaksi valitaan rivit, jotka ovat valittuna kun makro käynnistetään ja tulostus tulee siitä yhden rivin päähän.

Formin moduliin:

Private Sub CommandButton1_Click()
    tee
End Sub

Private Sub CommandButton2_Click()
    UserForm1.TextBox2.Text = osoite(Selection)
End Sub

Private Sub CommandButton3_Click()
    UserForm1.TextBox3.Text = tulostusosoite(Selection)
End Sub

Private Sub UserForm_Activate()
    UserForm1.TextBox2.Text = osoite(Selection)
    tulostus = osoite(Cells(Selection.Row   Selection.Rows.Count   1, Selection.Column))
    Debug.Print tulostus
    UserForm1.TextBox3.Text = tulostus
End Sub

Tavalliseen moduliin:

Sub riveiksi()
    UserForm1.TextBox2.Text = osoite(Selection)
    UserForm1.TextBox3.Text = tulostusosoite(Cells(Selection.Row   Selection.Rows.Count   1, Selection.Column))
    UserForm1.Show False
End Sub

Function osoite(r As Range) As String
    osoite = WorksheetFunction.Substitute(r.Address, "$", "")
End Function

Function tulostusosoite(r As Range) As String
    o = osoite(Selection)
    l = InStr(o, ":") - 1
    If l < 0 Then l = Len(o)
    tulostusosoite = Left(o, l)
End Function

Sub tee()
    erotin = UserForm1.TextBox1.Text
    Set alue = Range(UserForm1.TextBox2.Text)
    Set tulos = Range(UserForm1.TextBox3.Text)
    r = tulos.Row
    c = tulos.Column
    For Each s In alue
        t = Split(s, erotin)
        For i = 0 To UBound(t)
            Cells(r, c) = t(i)
            r = r   1
        Next i
        r = r   1
    Next s
End Sub