Question

excel中如何根据指定数字，紧随其后插入行数？

ABC三列，字段为姓名、销量、客户数，原始是这样的

要做成下图这样：

这只是个示例，实际的表有好几千行，后面的数字也是从1到20不等，请老师编个函数，实现根据“客户数”在后面插入指定行数，谢谢！





Answer 1

按ALT+F11，在右边输入如下代码：

Sub myfun()
    Dim i As Long
    Dim j As Integer
    i = 2
    Do Until Range("a" & i) = ""
        For j = 1 To Range("C" & i)
            Rows(i + 1).Insert
            i = i + 1
        Next
        i = i + 1
    Loop
End Sub

然后点击图中红圈处，运行。效果图如下：

追问

怎么显示运行错误呢

追答

我这里没有错误，截图你也看到了，是什么错误？

追问

错误代码13

追答

错误代码13表示类型不匹配，我的代码没有理由出现此错误，如果方便的话，请把你的文件发给我，我在这边运行，这样才能分析错误原因。我的邮箱：

jianjinxiang@126.com

追问

亲，发给你了已经，抽个时间看下，谢谢啊！

追答

已经找到问题，不过是你的问题^-^，已经根据你提供的附件修改相应代码，修改后的附件已经发到你的邮箱，请注意查收！