Rensa och konvertera importerad textdata

 

Det är ganska vanligt att importera data från andra system till Excel. Vanligtvis uppstår två slags problem:

• Data innehåller skräptecken, vanligtvis dolda tecken.
• Data utgörs av textvärden och är inte numeriska.

Detta försvårar beräkningar, utsökningar och förädling av data.

Tipset finns ej tillgängligt för hämtning.

 

Se också följande tips, vilka också omfattar textfiler:

• Exportera cellområdesdata till textfil
• Lista cellinnehåll i textfil - Reviderad
• Importera textfiler med fler rader än 65536 - Reviderad
• Hantering av textfiler

 

Här visas ett sätt att rensa data från skräptecken samt konvertera alfanumeriska värden till numeriska. Lösningen bygger på två kalkylbladsfuktioner Clean (STÄDA) och Substitue (BYT.UT) samt VBA's motsvarighet till kalkylbladsfunktionen Trim (RENSA).

Option Explicit   Sub Stada_Importerad_Textdata()    '© 2003 Alla rättigheter XL-Dennis    Dim wbBok As Workbook    Dim wsBlad As Worksheet    Dim rnData As Range    Dim vaData As Variant    Dim i As Long, j As Long      Set wbBok = ActiveWorkbook    Set wsBlad = wbBok.ActiveSheet    Set rnData = Selection      Application.ScreenUpdating = False      vaData = rnData.Value      For j = 1 To rnData.Columns.Count       For i = 1 To UBound(vaData)          vaData(i, j) = Trim(Application.WorksheetFunction.Clean _                (Application.WorksheetFunction.Substitute _                (vaData(i, j), " ", ""))) * 1       Next i    Next j        rnData.Value = vaData      Application.ScreenUpdating = False   End Sub