根据单元格的值插入行，但不要用插入行来写代码，可以实现码

yannierr

老师，请教下，我想根据单元格的数值，将单元格所在行拆分成每个数量为1的行，但不要用插入行来写代码，可以实现吗？谢谢！

zxsea_7426

你的想法很牛，即要插入，又不能用插入

捞屎人

捞屎人

捞屎人 发表于 2022-11-23 20:01

再一看发现右上角一个小bug  楼主自己改吧 我都没保存

3190496160

Sub 拆分行()
Dim ar As Variant
Dim br()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:e" & r)
    sl = Application.Sum(.Range("e2:e" & r))
    ReDim br(1 To sl, 1 To UBound(ar, 2))
    For i = 2 To UBound(ar)
        If Trim(ar(i, 5)) <> "" Then
            If IsNumeric(ar(i, 5)) Then
                ss = ar(i, 5)
                For s = 1 To ss
                    n = n + 1
                    For j = 1 To 4
                        br(n, j) = ar(i, j)
                    Next j
                    br(n, 5) = 1
                Next s
            End If
        End If
    Next i
    .[i1].CurrentRegion.Offset(1) = Empty
    .[i2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

求助.rar (17.9 KB, 下载次数: 3)

2022-11-23 20:21 上传

点击文件名下载附件

yannierr

@春风化雨  你写的代码就是我要的，太完美了。这数组写的太棒了！感谢！感谢！