15813191501 发表于 2020-9-4 19:31:49

excel怎么能根据后面的数字自动插入多少行?

本帖最后由 15813191501 于 2020-9-4 19:32 编辑

现在要打印物料编号贴在料盘上如下图, 每条编号要打印不同的张数,手工插入行太麻烦了,有没有什么公式或简便方法?   因为要批量打印,打印软件支持导入excel文件,,所以要先整好文档!

Himem 发表于 2020-9-4 19:39:03

本帖最后由 Himem 于 2020-9-4 20:07 编辑

用VBA呀
    pos = 1
    For i = 1 To 10000
    r = Val(Sheets("Sheet1").Cells(i, "C").Value)
    If r = 0 Then Exit Sub
    For j = 1 To r
      pos = pos + 1
      Sheets("Sheet2").Cells(pos, "A") = Sheets("Sheet1").Cells(i, "A")
      Sheets("Sheet2").Cells(pos, "B") = Sheets("Sheet1").Cells(i, "B")
    Next
    Next

大概这意思

memstone 发表于 2020-9-4 21:11:21

我是不插行，直接读取张数，BarTender 可以直接设定打印张数。

prow 发表于 2020-9-4 21:12:53

matlab解决任何excel问题

15813191501 发表于 2020-9-4 21:44:12

本帖最后由 15813191501 于 2020-9-4 21:45 编辑

谢谢各位。刚刚百度了一下，用公式解决了，也没有插入行数，在另外两列生成新的数据，VBA不会搞啊，呵呵！
页: [1]
查看完整版本: excel怎么能根据后面的数字自动插入多少行?