求教：插入指定行数

tz182410 · 发表于 2019-1-17 10:18

如图工作表，“子件BOM行数”等于2的，在该行下面插入1行，“子件BOM行数”等于3的，在该行下面插入2行，以此类推。插入行数等于=“子件BOM行数”的数字-1，如果该行为空或1，则不插入。表很大有两万多行，有没有批量处理办法？

子恺 · 发表于 2019-1-17 10:46

本帖最后由子恺于 2019-1-17 10:53 编辑

在子件BOM行数下的第一个单元格输入=IF(RIGHT(A1)-1>1,RIGHT(A1)-1,"")
RIGHT(A1)-1表示提取单元格A1中的最后一个数字，减去1，如果得到的值大于1则取RIGHT(A1)-1，否则显示空。

powerremain · 发表于 2019-1-17 13:29

本帖最后由 powerremain 于 2019-1-17 14:36 编辑

可否模拟个附件需要用VBA给你模拟好了代码附件在审核
需要你安装EXCEL的vba

powerremain · 发表于 2019-1-17 14:26

给你模拟一个供参考
Sub 宏1()
Application.ScreenUpdating = False
With Worksheets("sheet1")
      r = .Range("a65536").End(xlUp).Row
      For m = r To 2 Step -1
         If .Cells(m, 4).Value > 1 Then
            n = .Cells(m, 4).Value - 1
            .Cells(m + 1, 1).Resize(n, 4).Insert shift:=xlShiftDown
         End If
      Next
End With
Application.ScreenUpdating = True
End Sub

tz182410 · 发表于 2019-1-17 14:35

补附件，请帮忙处理

刀羊 · 发表于 2019-1-17 14:39

建议考虑PowerQuery吧，需要一次逆透视过程，

常规操作也可借用数据透视表做二维转一维。

powerremain · 发表于 2019-1-17 14:41

本帖最后由 powerremain 于 2019-1-17 15:20 编辑

tz182410 发表于 2019-1-17 14:35
补附件，请帮忙处理

好用记得右下角点评分给2朵小花又是审核，你的E列如果是输入的公式
请求改代码

powerremain · 发表于 2019-1-17 14:50

本帖最后由 powerremain 于 2019-1-17 15:13 编辑

子恺发表于 2019-1-17 10:46
在子件BOM行数下的第一个单元格输入=IF(RIGHT(A1)-1>1,RIGHT(A1)-1,"")
RIGHT(A1)-1表示提取单元格A1中的 ...

a列为空啊  还要写个函数吗？若果E列是输入的函数代码要修改一下自己复制进去
Sub 宏1()
Application.ScreenUpdating = False
With Worksheets("sheet3")
      r = .Range("b65536").End(xlUp).Row
      For m = r To 2 Step -1
         If .Cells(m, 5).Value <> "" Then
            n = .Cells(m, 5).Value - 1
            .Cells(m + 1, 1).Resize(n, 5).Insert shift:=xlShiftDown
         End If
      Next
End With
Application.ScreenUpdating = True
End Sub

powerremain · 发表于 2019-1-17 15:22

tz182410 发表于 2019-1-17 14:35
补附件，请帮忙处理

你E列是不是输入公式列了，如果是请用修改版

		自动登录	找回密码
密码			免费注册

[求助] 求教：插入指定行数

评分

最新热点 /1