Question

看看excel这个功能怎样用vba代码实现？

如图，每行就是一个商品，要在每个商品行下面新插入6行，A列必须跟商品行号码的一样，C列分别就是商品行里的各个尺码，由于这个尺码不一定是6个，也有可能是别的数量，别的数目，别的字母，所以希望能通过读取商品所在行的C列数据来自动循环实现。麻烦给出具体可行代码，谢谢！

问题补充：
图片显示的是我要实现的最终效果.
我要实现的是：
每个商品行下面新插入行，行数由商品行C列里数值个数决定，数值有S-M、L-XL、3-5-7-9-11-13（数字的值和个数不固定），日后可能会有新的尺码，如果可以我自己添加就更好了。
同一个商品，A列的商品号码的一样，C列分别对应各个尺码。
执行完一个商品自动跳到下一个商品开始新的插入，直到没有商品。

Answer 1

Sub aa()
Dim i, j As Integer
Dim s As String
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
s = WorksheetFunction.Substitute(Cells(i, 3), "-", "")
k = Len(Cells(i, 3)) - Len(s)
For j = k + 1 To 1 Step -1
Rows(i + 1).Select
Selection.Insert shift:=xlDown
Cells(i + 1, 1) = Cells(i, 1)
Cells(i + 1, 3) = Trim(Mid(WorksheetFunction.Substitute(Cells(i, 3), "-", WorksheetFunction.Rept(Space(1), Len(Cells(i, 3)))), Len(Cells(i, 3)) * (j - 1) + 1, Len(Cells(i, 3))))
Next j
Next i
End Sub

Answer 2

给你思路：
使用Dictionary实现
记录A|C-C以及A|C出现的次数，分解不记录次数。
将次数为零的在末尾添加。