Con una macro:

Open "c:\file.csv" For Input As #1 ' Apre il file.
Do While Not EOF(1) ' Ripete fino alla fine del file.
Line Input #1, TextLine ' Assegna la riga a una variabile.
Debug.Print TextLine ' Scrive nella finestra Immediata.
Z = Len(TextLine)
x = 1
y = 0
Do Until x > Z
If Mid(TextLine, x, 1) = ";" Then
y = y + 1
Testo = Mid(TextLine, 1, x - 1)
Cells(6, y) = Testo 'oppure se numerico val(testo)
End If
x = x + 1

Loop
Loop
Close #1 ' Chiude il file.

Per cercare il ; puoi usare anche l'istruzione instr piu' veloce senz'altro di questo codice che ti ho postato (che comunque io ho utilizzato e funziona ).
Ciao