excel - 拆分字段内容和重复行

Question

我有一个 Excel 电子表格，其中有一列可能有许多由分号分隔的值，例如 value1;value2;value3。我需要做的是为每个值复制整行，每行只有一个值。

例子:

value1;value2;value3,abc,100
value4;value5,xyz,200
value6,def,300

最终应该是这样的:

value1,abc,100
value2,abc,100
value3,abc,100
value4,xyz,200
value5,xyz,200
value6,def,300

Answer 1

列中的数据 一个 这个宏:

Sub Byron()
    Dim r As Range, K As Long, v As String
    K = 1
    For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        v = r.Value
        p1 = Mid(v, 1, InStr(1, v, ",") - 1)
        p2 = Mid(v, InStr(1, v, ","))
        ary = Split(p1, ";")
        For Each a In ary
            Cells(K, 2).Value = a & p2
            K = K + 1
        Next a
    Next r
End Sub

将结果放在 列中乙 :



(这只是将 Byron 的评论翻译成 VBA)