怎样把excel表格某行某个单元格内多项内容放入不同的行？

Question

怎样把excel表格某行某个单元格内多项内容放入不同的行？
A B C
a 中 a1,a2,a3,
b 华 b1,b2
c 人 c1

A B C
a 中 a1,a2,a3,
a1 中 a1,a2,a3,
a2 中 a1,a2,a3,
a3 中 a1,a2,a3,
b 华 b1,b2
b1 华 b1,b2
b2 华 b1,b2
c 人 c1
c1 人 c1

Answer 1

如果问题得到解决，请点我回答左上角的采纳。

Sub Macro1()
    desrow = 10
    For i = 1 To 4
        arr = Split(Range("C" & i), ",")
        For j = LBound(arr) To UBound(arr)
            Range("A" & desrow) = Range("A" & i)
            Range("B" & desrow) = Range("B" & i)
            Range("C" & desrow) = arr(j)
            desrow = desrow + 1
        Next
    Next
End Sub