新手求助！！在线等

一笔荒芜

我想把 汇总表中的三列数据按照月份 新建工作表 并把对应月份数据复制过去。

我的代码，只能新建1月的表，后面运行时出现91错误！

有知道的大神帮我看下么，谢谢了！！

jiangxiaoyun

1. Sub chaifen()
   
2. 
   
3. Dim d As Date, rng As Range, rct%, rngs As Range, titrng As Range
   
4. 
   
5. For d = #1/1/2015# To #1/5/2015#
   
6. With Sheets("汇总")
   
7.     Set rng = .Range("a:a").Find(d)
   
8.     rct = WorksheetFunction.CountIf(.[a:a], d)
   
9.     Set rngs = rng.Resize(rct, 3)
   
10.     Set titrng = .[a1:c1]
    
11. End With
    
12.     Sheets.Add after:=Sheets(Sheets.Count)
    
13.     titrng.Copy [a1]
    
14.     rngs.Copy [a2]
    
15.     ActiveSheet.Name = Format(d, "M月d日")
    
16. Next
    
17. 
    
18. End Sub
    

复制代码

一笔荒芜

jiangxiaoyun 发表于 2017-8-7 10:25

谢谢大神！！！ 我一直再刷网页终于等到了。。谢谢谢谢