工作表拆分

wpf543625851

程序运行是运行了，可是找不出现图片中的错误来，望大神们指导下！！！

活在理想的世界

1. Sub D()
   
2. Dim arr(), Dic, sht As Worksheet
   
3. Set Dic = CreateObject("Scripting.Dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     Dic(arr(i, 2)) = ""
   
7. Next
   
8. For Each ii In Dic.Keys
   
9.    Set sht = Sheets.Add(, Sheets(Sheets.Count)): sht.Name = ii
   
10.    Sheet1.Range("a1").CurrentRegion.AutoFilter 2, sht.Name
    
11.    Sheet1.Range("a1").CurrentRegion.Copy sht.Range("a1")
    
12. Next
    
13. Sheet1.Range("a1").CurrentRegion.AutoFilter: Sheet1.Select
    
14. End Sub

复制代码

wpf543625851

活在理想的世界 发表于 2018-7-8 13:26

谢谢大神，你的方法简单明了，字典+筛选....我又学了一招！！！可是我那个弹出来的错误是怎么回事？

不知道为什么

wpf543625851 发表于 2018-7-8 16:35
谢谢大神，你的方法简单明了，字典+筛选....我又学了一招！！！可是我那个弹出来的错误是怎么回事？

加个判断。               

活在理想的世界

wpf543625851 发表于 2018-7-8 16:35
谢谢大神，你的方法简单明了，字典+筛选....我又学了一招！！！可是我那个弹出来的错误是怎么回事？

除了学习以外，其他时候别人的代码我是不看的。

wpf543625851

活在理想的世界 发表于 2018-7-8 17:30
除了学习以外，其他时候别人的代码我是不看的。

这次让您破例了，不好意思哈！谢谢你的指导！

wpf543625851

不知道为什么 发表于 2018-7-8 16:47
加个判断。

嗯嗯，我把那两句放到上面的end if里面就可以了