求助大神 如果将表格按照客户名字的分裂出来

呵呵打

我需要将表格按照客户的名字分出来，意思是需要有个命令来分解表格出来（是分成另外一个单独的表格是按照客户名字来命名的）。但是本人不会做 特意求助。

呵呵打

每月的数据大概有几十万条的  求帮助

jiangxiaoyun

POWERQUERYF分列就好。

呵呵打

jiangxiaoyun 发表于 2017-9-30 17:42
POWERQUERYF分列就好。

不是这么简单的

鄂龙蒙

1. Sub 按客户名称列拆分成多表()
   
2.     Application.DisplayAlerts = False
   
3.     Dim sh As Worksheet
   
4.     Dim d As Object
   
5.     Dim arr As Variant
   
6.     Dim i, s As Integer
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.         For Each sh In Worksheets
   
9.             If sh.Name <> "总表" Then
   
10.                 sh.Delete
    
11.             End If
    
12.         Next sh
    
13.     arr = Sheets("总表").[a1].CurrentRegion
    
14.         For i = 2 To UBound(arr)
    
15.             If Not d.exists(Split(arr(i, 3), " ")(1)) Then
    
16.                 Set d(Split(arr(i, 3), " ")(1)) = Sheets("总表").Range("a" & i).Resize(1, UBound(arr, 2))
    
17.             Else
    
18.                 Set d(Split(arr(i, 3), " ")(1)) = Union(d(Split(arr(i, 3), " ")(1)), Sheets("总表").Range("a" & i).Resize(1, UBound(arr, 2)))
    
19.             End If
    
20.         Next i
    
21.     x = d.keys
    
22.         For i = 0 To UBound(x)
    
23.             Set sh = Worksheets.Add(after:=Sheets(Sheets.Count))
    
24.             sh.Name = x(i)
    
25.             Sheets("总表").[a1:g1].Copy sh.[a1]
    
26.             d.items()(i).Copy sh.[a2]
    
27.         Next i
    
28.     Application.DisplayAlerts = True
    
29. End Sub

复制代码