Norsk møteplass for freakere av alle slag

21. mars 2017

Men utgangspunkt er alltid at det er tre tall på rad som hører sammen? Og i cellene med avbrudd er det ikke tallverdier?

Gitt at det er tilfelle skal dette fungere:

Kode

Dim tempString As String
For i = 1 To 1000
    tempString = ""
    If IsNumeric(Cells(i, 1)) Then
        If Not Cells(i, 1).Value = Null Then
            For j = i To i + 2
                tempString = tempString & Cells(j, 2).Value & "|"
            Next j
            Cells(i, 3).Value = Mid(tempString, 1, Len(tempString) - 1)
            i = i + 2
        End If
    End If
Next i

http://i.imgur.com/whpCoi6.png

Sist endret av lroedal; 21. mars 2017 kl. 14:16. Grunn: Automatisk sammenslåing med etterfølgende innlegg.