跪求Excel解决方案，需要“宏”高手；重谢！【有附图】

显示全部楼层 · 2010-9-1 20:47:17

由于数量大所以我寻求解决，将“型号”那一栏的数量转到后面的“数量”栏里面，另外要根据型号的行数来生成表的行数，说也不清楚，附图如下【实现前和实现后】需要形成形成后的样子

千问 · 2010-9-1 20:47:17

如果你的数据够规范的化,使用下面的代码就可以Sub ch()Dim sr = 2Do While Range("f" & r)""
s = Split(Range("f" & r).Value, Chr(10))
cc = UBound(s)
If cc > 0 Then
Range("a" & r + 1 & ":f" & r + cc).EntireRow.Insert
Range("a" & r & ":l" & r).Copy Range("a" & r + 1 & ":L" & r + cc)
End If
For i = r T