高分请教一个EXCEl范围拆分的问题，回答好的可以加分！

1、如果用公式解决，那么“凝聚每分爱”关于D列的公式是正确的。
D2=
=INDEX(A:A,SMALL(IF(--(0&MID(REPT($A$2:$A$7,RIGHT($B$2:$B$7)-LEFT($B$2:$B$7)+1),COLUMN($1:$1),1))>0,ROW($2:$7)),ROW(A1)))按CTRL+SHIFT+ENTER结束公式输入，下拉填充。
2、下面我借用“凝聚每分爱”思路再给出E列数据公式。
E2
=INDIRECT("B$"&SMALL(IF(--(0&MID(REPT($A$2:$A$7,RIGHT($B$2:$B$7)-LEFT($B$2:$B$7)+1),COLUMN($A$1:$H$1),1))>0,ROW($2:$7)),ROW(A1)))按CTRL+SHIFT+ENTER结束公式输入，下拉填充。
F2
=IF(E2<>E1,--LEFT(E2),F1+1)下拉填充。

则F列为你所要答案！如果结果一定要在E列，那么通过复制——选择性粘贴后，再删除E列即可。

这个要用宏解决，一行行读取，再取B中“-”号前的数与“-”号后的数，做一循环，每循环一次加一（每循环一次插入一行）直到达到“-”后的数即终止循环，继续读下一行数据的读取与拆分工作