这个可以用宏来解决,函数的话没有想到有什么。
如果方便的话LZ就发过来个样表吧,我来给你弄,邮箱是:febls@126.com发的时候注明下相应的要求就好了
假设你的 数量 这列在D列,那么你就把下边这个宏复制进去就行了
Sub fuzhi() '根据D列中的数量进行整列复制
Dim ZHS As Integer '定义变量ZHS(总行数),表格的总行数
Dim b() As Integer '定义数组b()
Dim SL As Integer '定义变量SL(数量),D列中的数量
Dim r As Integer
Dim i As Integer
Dim ii As Integer
Range("A1").CurrentRegion.Select
ZHS = Selection.Rows.Count '获取表格总行数
ZHS = ZHS - 1
ReDim b(ZHS) '定义数组大小
Range("d2").Select
For r = 1 To ZHS '给数组赋值
b(r) = ActiveCell
ActiveCell.Offset(1, 0).Select
Next r
Range("D2").Select '选择D2单元格,准备进行复制
For i = 1 To ZHS
If ActiveCell > 1 Then
SL = ActiveCell
SL = SL - 1
For ii = 1 To SL
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Next ii
ActiveCell.Offset(1, 3).Select
ElseIf ActiveCell = 1 Then
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
用IF公式,,,,=if (C5>=2,C6=C5,"")
没看明白,你把假设的原数据写出来,并且把所想要析结果也用表格的形式写出来看看