Excel 一单元格内多项内容 如何将物品名称往下拆分 求大神指教

亲，这个用VBA方便些。附件已上传，供参考。代码如下。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

按ALT+F8，打开宏窗口，点击相应的宏，执行。

Sub cr()
Dim Arr
Dim i, j, r As Long
r = Range("C" & Rows.Count).End(xlUp).Row
For i = r To 3 Step -1
    Arr = Split(Range("C" & i), " ")
    For j = 0 To UBound(Arr)
        If j = 0 Then
            Range("C" & i) = Arr(j)
        Else
            Rows(i + j).Insert Shift:=xlDown
            Range("C" & i + j) = Arr(j)
        End If
    Next
Next
End Sub

你这个内件名称规律不明显，有点困难

你好，把文件发来吧