VBA 添加指定数量行，并添加对应的序号【求大神帮忙，谢谢！】

tjdqls24

测试.rar (3.91 KB, 下载次数: 0)

2018-5-22 08:07 上传

点击文件名下载附件

请各位大神帮忙，用VBA完成这些步骤，谢谢！！！

liulang0808

请楼主上传附件，便于进一步解答

tjdqls24

liulang0808 发表于 2018-5-22 07:55
请楼主上传附件，便于进一步解答

请看附件   谢谢 测试.rar (3.91 KB, 下载次数: 1)

2018-5-22 08:06 上传

点击文件名下载附件

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = Sheets("Sheet1").[a1].CurrentRegion
   
4.     a = 2
   
5.     For j = 2 To UBound(arr)
   
6.         For i = 1 To 3
   
7.             Cells(a, i) = arr(j, i)
   
8.         Next i
   
9.         a = a + 1
   
10.         brr = Split(arr(j, 3), "-")
    
11.         For i = Val(brr(0)) + 1 To Val(brr(UBound(brr)))
    
12. 
    
13.             Cells(a, 1) = i * (-1)
    
14.             a = a + 1
    
15.         Next i
    
16.     Next j
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

tjdqls24

liulang0808 发表于 2018-5-22 08:53
附件内容供参考。。。。。。

谢谢，，
但是有一点添加行后B,C列的数字还在原来的位置，
所以看起来有点乱

liulang0808

增加了缺少部分

tjdqls24

liulang0808 发表于 2018-5-22 09:09
增加了缺少部分

太棒了，，我还在想这缺少的部分怎么处理呢，

tjdqls24

liulang0808 发表于 2018-5-22 09:09
增加了缺少部分

我刚刚测试过，
但是他只能识别A列的2-4
如果在A5，A6....添加别的编号时他自己就把这些给删掉了，

liulang0808

tjdqls24 发表于 2018-5-22 09:28
我刚刚测试过，
但是他只能识别A列的2-4
如果在A5，A6....添加别的编号时他自己就把这些给删掉了，

楼主的需求结合附件举例描述吧，
不结合附件，看不太懂的