Tiedon tuominen tekstitiedostosta

Onko rivien määrä sama kaikkien henkilöiden kohdalla? Jos on, niin voit käyttää siihen pelkkää kaavaa.
Tuo tekstit ensin A-sarakkeeseen.
Tee B-sarakkeen 1. soluun kaava (=POISTA.VÄLIT(POIMI.TEKSTI(A1;ETSI(":";A1;1) 1;25))) ja toiseen soluun kaava (=A2).
Jätä kaikki muut solut tyhjäksi ennen seuraavaa nimeä.
Valitse B-sarakkeen kaikki solut joissa ovat vain yhden henkilön tiedot ja vedä alue oikeasta alakulmasta alaspäin, niin kauan, että tulet A-sarakkeen tekstien viimeiselle riville.
Valitse B-sarake -> Kopioi -> Liitä määräten -> Liitä: Arvot.

hakee nyt vain asiakkaan nimen ja osoitteen samalle riville ja allekkain aktiiviseen taulukkoon

moduuliin...

Sub HaeTiedosotosta()
'hakee tiedostosta vain nimi ja osoitetiedot allekkain Excelin aktiiviseen taulukkoon
'tiedostorakenne
'Nimi: Matti Meikäläinen
'Osoite: Koulukuja 1
'...
'Nimi: Liisa Teikäläinen
'Osoite: Koulukuja 2
'...

Dim Tiedosto As String
Dim Haku1 As String
Dim Haku2 As String
On Error Resume Next

'muuta polku ja hakusanat oikeaksi
Tiedosto = "C:\kunde\koe.txt"
Haku1 = "Nimi"
Haku2 = "Osoite"

Range("A:B") = ""
Range("A1").Select
Open Tiedosto For Input As #1
While Not EOF(1)
Line Input #1, textline
If InStr(1, textline, Haku1, 1) > 0 Then
' jos oli Nimi: alussa niin tuo 7 merkistä alkaen, korjaa oikeaksi
ActiveCell = Mid(textline, 7)
End If
If InStr(1, textline, Haku2, 1) > 0 Then
' jos oli Osoite: alussa niin tuo 9 merkistä alkaen, korjaa oikeaksi
ActiveCell.Offset(0, 1) = Mid(textline, 9)
ActiveCell.Offset(1, 0).Select
End If
Wend
Close #1
End Sub

Sana Marin sähköposti osoite