異なる行のセル内の区切り文字のテキストを分割する

私はこのようなデータを入力しました：

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

上記の入力例の新しい各行は新しい行で、各行は1列です。私の質問は今です：どのように私はセパレータにすべてのセルを吐き出すことができます （ ; ） エクセル2016で？これに対する公式はありますか？

注意： 入力ファイルはCSVファイルではありません。それは .xlsx 調査結果を含むファイル。上記の入力データは、その1つの質問です。

最後に私はこのようなデータになります

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

複数列にすることができます。

私はこの式を使おうとしました：

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

英語で （間違っているかもしれません）

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

しかし、私はこの結果

セル内 B$2 この値に耐える：

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

microsoft-excel microsoft-excel-2016

— H. Pauwelyn
ソース

列内のデータあり A この短いVBAマクロを実行します。

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

生成されます：

これを使用するには、ファイルを作成する必要があります。 .xlsm のではなく .xlsx

— Gary's Student
ソース