Farklı satırlardaki hücrelerde ayırıcıdaki metni bölme

Bunun gibi verileri girdim:

| VR headsets          |
| -------------------- |
| htc;oculus;cardboard |
| playstation vr       |
| htc;oculus           |
| no                   |
| daydream;cardboard   |
| cardboard            |
| no                   |

Yukarıdaki giriş örneğindeki her yeni satır, yeni bir satırdır ve her biri bir sütundur. Şimdi sorum şu: Excel 2016'daki ayırıcıdaki ( ;) tüm hücreleri nasıl tükürebilirim ? Bunun için bir formül var mı?

Not: Giriş dosyası bir CSV dosyası değil! .xlsxBir anketin sonuçlarını içeren bir dosyadır. Yukarıdaki girdi verileri bunun sadece bir sorusudur.

Finaly Ben böyle bir veri olurdu

| VR headsets          |
| -------------------- |
| htc                  |
| oculus               |
| cardboard            |
| playstation vr       |
| htc                  |
| oculus               |
| no                   |
| daydream             | 
| cardboard            |
| cardboard            |
| no                   |

Birden çok sütunda olabilir.

Bu formülü kullanmaya çalıştım:

=DEEL('Alle data'!$U4; KOLOMMEN('Alle data'!$U4:'Alle data'!$U4); B$2)

İngilizce (yanlış olabilir)

=PART('Alle data'!$U4; COLUMNS('Alle data'!$U4:'Alle data'!$U4); B$2)

ama ben bu sonucu aldım

Hücrelerde B$2şu değerler yer alır:

1  2  3  4  5  6  7  8  9  10 11 12 13 ...

A sütunundaki verilerle bu kısa VBA makrosunu çalıştırıyorsanız:

Sub MakeList()
    Dim i As Long, N As Long, j As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    j = 1

    For i = 1 To N
        ary = Split(Cells(i, 1), ";")
        For Each a In ary
            Cells(j, 2) = a
            j = j + 1
        Next a
    Next i
End Sub

üretecek:

Bunu kullanmak için .xlsx yerine .xlsm dosyasını yapmanız gerekecektir.