[已解决]插入行数后填充序列并根据条件显示0或1

zss7758258

条件在附件的《Sheet2》第一行中，请老师们帮忙了，谢谢！附件和图片如下：

求教3.zip (14.4 KB, 下载次数: 2)

2014-10-31 20:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-31 20:50

求教3.rar (17.63 KB, 下载次数: 9)

2014-10-31 20:50 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

求教3.rar (17.63 KB, 下载次数: 9)

2014-10-31 20:50 上传

点击文件名下载附件
楼主试试

zss7758258

qh8600 发表于 2014-10-31 20:50
楼主试试

谢谢老师，正是我想要的

zss7758258

qh8600 发表于 2014-10-31 20:50
楼主试试

2插入行数后填充序列并根据条件显示0或1.zip (35.43 KB, 下载次数: 2)

2014-11-1 08:24 上传

点击文件名下载附件

老师您好，上千行数据运行时候就慢了许多，能都再提高速度，谢谢！

qh8600

zss7758258 发表于 2014-11-1 08:25
老师您好，上千行数据运行时候就慢了许多，能都再提高速度，谢谢！

2插入行数后填充序列并根据条件显示0或1.rar (54.24 KB, 下载次数: 4)

2014-11-1 09:07 上传

点击文件名下载附件

zss7758258

qh8600 发表于 2014-11-1 09:07

快好多了,谢谢老师

zss7758258

qh8600 发表于 2014-11-1 09:07

老师您好，B2单元格是不固定的数字，您的代码默认以2000为起始了，请老师再次完善，致谢！

3插入行数后填充序列并根据条件显示0或1.zip (87.63 KB, 下载次数: 2)

2014-11-1 16:22 上传

点击文件名下载附件

qh8600

zss7758258 发表于 2014-11-1 16:24
老师您好，B2单元格是不固定的数字，您的代码默认以2000为起始了，请老师再次完善，致谢！

重新发个贴吧

zss7758258

qh8600 发表于 2014-11-1 16:31
重新发个贴吧

求助qh8600老师完善功能
http://www.excelpx.com/thread-333977-1-1.html

zss7758258

备注答案：http://www.excelpx.com/forum.php ... 977&pid=3792816

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 4), m, i, j, n
   
3.     ar = Sheet1.Range("a2:b" & Cells(Rows.Count, 1).End(3).Row)
   
4.     m = ar(1, 2) - ar(1, 1) - 1
   
5.     For i = 1 To UBound(ar)
   
6.         For j = 1 To ar(i, 1) + 1
   
7.             n = n + 1
   
8.             If j = ar(i, 1) + 1 Then
   
9.                 br(n, 1) = ar(i, 1)
   
10.                 br(n, 2) = ar(i, 2)
    
11.                 br(n, 3) = n + m
    
12.                 br(n, 4) = 0
    
13.             Else
    
14.                 br(n, 1) = ""
    
15.                 br(n, 2) = ""
    
16.                 br(n, 3) = n + m
    
17.                 br(n, 4) = 1
    
18.             End If
    
19.         Next
    
20.     Next
    
21.     Range("a2").Resize(n, 4) = br
    
22. End Sub
    

复制代码