[已解决]请教EXCEL自动以递增方式复制重复次数，并自动在另一列从0开始排序，谢谢

fxvon

搞了半天搞不出来，郁闷，请教各位大侠，如何能自动实现上述功能，函数或VB什么的，谢谢谢谢！！！

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-10 08:41

看看这个

跳转到最佳答案楼层

Hsiao

1. Sub test()
   
2. Dim x%, arr, brr, y%, s%, drr(1 To 100000, 1 To 2)
   
3. arr = Range("a1").CurrentRegion
   
4. For x = 1 To UBound(arr)
   
5.     brr = Split(arr(x, 1), "-")
   
6.     For y = 0 To arr(x, 2) - 1
   
7.          s = s + 1
   
8.          drr(s, 1) = brr(0) & "-" & brr(1) + y
   
9.          drr(s, 2) = y
   
10.     Next
    
11. Next
    
12. [d1].Resize(s, 2) = drr
    
13. End Sub
    

复制代码

fxvon

测试的简单的可以，其实我的文档是附件这个样的，调试和运行报错，类型不匹配，错误我截图了，请这位大侠帮我看下，太感谢了！

yorkchenshunan

看看这个

fxvon

yorkchenshunan，太感谢了，折腾了好久，给你几个语句搞定了，感激之情难于言表了，赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞