☰

在不同行的单元格中按分隔符拆分文本

tag-icon • tag-icon microsoft-excel microsoft-excel-2016
在不同行的单元格中按分隔符拆分文本

我输入了如下数据：

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

上面输入示例中的每一行都是一个新行，每一行都是一列。我现在的问题是：如何将所有单元格都拆分到分隔符处（;）在 Excel 2016 中？有这个公式吗？

笔记：输入文件不是 CSV 文件！它是一个.xlsx包含调查结果的文件。上面的输入数据只是其中一个问题。

最后我会得到这样的数据

| 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 ...

答案1

包含列中的数据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

相关内容