Simple macro query -

[steallan]

Hello

Sorry i'm bobbins at the coding still - im trying to get a macro that will scan down column A, where there's various filenames ( a couple of thousand). Sometimes i've got 2 filenames in one cell, one after the other, seperated by " ; " so space;space.

Where this occures im after the macro to insert a new row and copy the 2nd filename (so after the into that row, and then continue on down column A

can anyone help me? I'd be very grateful.

Best regards

ste

 

[Richard Schollar]

Hi Ste

Try this:

Sub test()
Dim i As Long, j As Long
Dim temp
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
    If InStr(1, Cells(i, "A").Value, ";") > 0 Then
        temp = Split(Cells(i, "A").Value, ";")
        Cells(i, "A").Resize(UBound(temp)).EntireRow.Insert
        For j = 0 To UBound(temp)
            Cells(i + j, "A") = temp(j)
        Next j
    End If
Next i
End Sub

 

[steallan]

That worked like a charm

Thanks very much saved me a lot of time that

Ste