[已解决]需要按产品种类自动分成不同的工作表

marcpei

小弟不才，想向各位大神请教一下有没有快捷的方法，能够自动按照已分类好的产品名称分别创建新的工作表，并将此产品名称的所有明细转移至对应的工作表中，谢谢各位。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-11-17 15:11

请注意，产品名称中的"/" "*"不能出现在工作表名称中。

跳转到最佳答案楼层

grf1973

请注意，产品名称中的"/" "*"不能出现在工作表名称中。

marcpei

grf1973 发表于 2016-11-17 15:11
请注意，产品名称中的"/" "*"不能出现在工作表名称中。

大神！想问一下您这个是通过vba来实现的吗，因为每天都会有这样的表格需要整理，这样就节省了很大的时间啊，谢谢了！~

grf1973

是的。只能通过vba。代码在工作表里。

1. Sub 生成()
   
2.     Call 删除
   
3.     arr = [a1].CurrentRegion
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         x = Replace(Replace(arr(i, 1), "/", ""), "*", "×")
   
7.         If Not d.exists(x) Then
   
8.             Set d(x) = Union([a1:g1], Cells(i, 1).Resize(1, 7))
   
9.         Else
   
10.             Set d(x) = Union(d(x), Cells(i, 1).Resize(1, 7))
    
11.         End If
    
12.     Next
    
13.     For Each x In d.keys
    
14.         Worksheets.Add after:=Sheets(Sheets.Count)
    
15.         With ActiveSheet
    
16.             .Name = x
    
17.             d(x).Copy .[a1]
    
18.             .Columns.AutoFit
    
19.         End With
    
20.     Next
    
21.     Sheets(1).Activate
    
22. End Sub
    
23. 
    
24. Sub 删除()
    
25.     Dim sh As Worksheet
    
26.     Application.DisplayAlerts = False
    
27.     For Each sh In Worksheets
    
28.         If sh.Index > 1 Then sh.Delete
    
29.     Next
    
30.     Application.DisplayAlerts = True
    
31.         
    
32. End Sub
    

复制代码

marcpei

grf1973 发表于 2016-11-18 09:09
是的。只能通过vba。代码在工作表里。

太谢谢了，我再研究一下您写的代码， 这样真的是节省了很大的时间，受教了！万分感谢！