Just nu i M3-nätverket
Jump to content

Konvertera adresser från textfil till Excel ?


PCsnubben

Recommended Posts

Om jag har en textfil med x antal adresser, jag vill konvertera adresserna till Excel ?

 

Exempel:

 

Sven Svensson

Svennevägen 32

111222 Svennjunga

 

Olle Ollesson

Ollevägen 33

222333 Ollestad

 

osv

 

Jag testade att göra det med standardinställningarna, men fick då resultatet:

5 Sven Svensson

6 Svennevägen 32

7 111222 Svennjunga

Alltså allt i samma kolumn och första namnet på rad 5, adress på rad 6 och postadress på rad 7 osv

 

Men jag vill ha namn i kolumn A, adress i kolumn B och postadress i kolumn C osv

Hur gör jag då ??

Link to comment
Share on other sites

Mr Andersson

Testa att först ersätta radbryt med semikolon (;) och sen importera. Man måste på något sätt berätta både var ett fält och en post slutar och börjar. Om det bara är en massa radbryt, så blir det lite krångligt.

Link to comment
Share on other sites

Hej,

 

Om adresserna är separerade med en tom rad kan du prova följande makro:

 

Sub Rows2Columns()
'Starts in ActiveCell and converts continuous lines of rows in a column to columns.
'A blank line starts a new row, and two blank lines stops the loop.
Dim rnTemp As Range
Dim lnCol As Long
Set rnTemp = ActiveCell
lnCol = 0
While rnTemp.Offset(1, 0) <> "" Or rnTemp.Offset(2, 0) <> ""
   	If rnTemp.Offset(1, 0) <> "" Then
       	lnCol = lnCol + 1
       	rnTemp.Offset(0, lnCol) = rnTemp.Offset(1, 0)
       	rnTemp.Offset(1, 0).Delete Shift:=xlUp
   	Else
       	lnCol = 0
       	rnTemp.Offset(1, 0).Delete Shift:=xlUp
       	Set rnTemp = rnTemp.Offset(1, 0)
   	End If
Wend
End Sub

  1. Öppna VBA-editorn (Alt-F11)
  2. Om det inte finns någon Modul, skapa en.
  3. Kopiera in koden ovan i modulen.
  4. Markera första cellen i den inkopierade listan.
  5. Kör makrot.
  6. Håll tummarna!

Hälsningar

/Johan

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...