给你编了一段代码。运行即可。公式可能比较复杂,且如果数据多时。影响运行速度。
Sub a()
Dim i&, j&, k&
Range("c:c").ClearContents
k = 1
For i = 1 To [a65536].End(3).Row
For j = 1 To Range("b" & i).Value
Range("c" & k) = Range("a" & i)
k = k + 1
Next j
Next i
End Sub
C1数组公式:
=INDEX(A:A,SMALL(IF(B$1:B$4
把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删)、excel样表文件(请特别注意:要03版的(如果是03以后的,把文件“另存为”一下,类型框可以选择03的),把现状和目标效果表示出来)作为附件发来看下 yqch134@163.com
能说明白些么?