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

tjdqls24

liulang0808 发表于 2018-5-22 10:16
楼主的需求结合附件举例描述吧，
不结合附件，看不太懂的

测试.rar (9.44 KB, 下载次数: 2)

2018-5-22 11:05 上传

点击文件名下载附件

劳烦您再看以下附件，，
万分感激~~~

liulang0808

tjdqls24 发表于 2018-5-22 11:06
劳烦您再看以下附件，，
万分感激~~~

看了，没有看出来跟楼主的效果表有什么差别的
楼主能不能对比下代码运行结果，说明下差在哪里啊？

tjdqls24

liulang0808 发表于 2018-5-22 11:40
看了，没有看出来跟楼主的效果表有什么差别的
楼主能不能对比下代码运行结果，说明下差在哪里啊？

我重新试了以下，，
很完美，，
刚刚看错了，，，
非常感谢，，

tjdqls24

liulang0808 发表于 2018-5-22 11:40
看了，没有看出来跟楼主的效果表有什么差别的
楼主能不能对比下代码运行结果，说明下差在哪里啊？

测试.rar (9.44 KB, 下载次数: 3)

2018-7-24 11:23 上传

点击文件名下载附件

老师，麻烦您帮我看一下，
我最近用这VBA出现下表越界是怎么一回事啊？

liulang0808

tjdqls24 发表于 2018-7-24 11:24
老师，麻烦您帮我看一下，
我最近用这VBA出现下表越界是怎么一回事啊？

报错的时候，鼠标放到arr（j,3）上看看，是不是没有“-”，brr不是数组，所以报错
建议增加对arr(j,3)进行判断

tjdqls24

liulang0808 发表于 2018-7-24 13:26
报错的时候，鼠标放到arr（j,3）上看看，是不是没有“-”，brr不是数组，所以报错
建议增加对arr(j,3)进 ...

老师 ，能不能教一教怎么进行判断啊？
新手白纸不会啊。

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.         If InStr(arr(j, 3), "-") > 0 Then
   
7.             brr = Split(arr(j, 3), "-")
   
8.    
   
9.             Cells(a, 1) = arr(j, 1) & "-" & brr(0)
   
10.             Cells(a, 2) = arr(j, 2)
    
11.             Cells(a, 3) = arr(j, 3)
    
12.             
    
13.             a = a + 1
    
14.       
    
15.             For i = Val(brr(0)) + 1 To Val(brr(UBound(brr)))
    
16.    
    
17.                 Cells(a, 1) = i * (-1)
    
18.                 a = a + 1
    
19.             Next i
    
20.         End If
    
21.     Next j
    
22.    
    
23.     ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    

复制代码

liulang0808

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

tjdqls24

liulang0808 发表于 2018-7-24 16:38
附件内容供参考。。。。。。

谢谢 老师 ~~~