Hej Folke,
Här kommer koden som gör jobbet åt dig.
Public Sub ImportCSV()
Dim rawData As String, lineArr As Variant, cellArr As Variant, arr As Variant
Dim ubR As Long, ubC As Long, r As Long, c As Long
Dim writeRow As Long, writeCol As Long, i As Long, j As Long
Open ActiveWorkbook.Path & "\" & "Data.csv" For Binary As #1
rawData = Space$(LOF(1))
Get #1, , rawData
Close #1
If Len(rawData) > 0 Then
'If spaces are delimiters for lines change vbCrLf to " "
lineArr = Split(Trim$(rawData), vbCrLf)
ubR = UBound(lineArr) + 1
ubC = UBound(Split(lineArr(0), ",")) + 1 ' use "," as column separator
ReDim arr(1 To ubR, 1 To ubC)
For r = 1 To ubR
If Len(lineArr(r - 1)) > 0 Then
cellArr = Split(lineArr(r - 1), ",")
For c = 1 To UBound(cellArr) + 1
arr(r, c) = cellArr(c - 1)
Next
End If
Next
'Write array values to ActiveSheet
writeCol = 3 'start writing in column C
For i = 1 To UBound(arr, 1)
writeRow = 10 'start writing in row 10
For j = 2 To UBound(arr, 2)
If Len(arr(i, j)) > 0 Then
ActiveSheet.Cells(writeRow, writeCol) = arr(i, j)
End If
writeRow = writeRow + 2
Next
writeCol = writeCol + 2
Next
End If
End Sub