根据A列的姓名生成工作表名，保存其对应记录内容到给表中！！

zhaogang1960

字典法拆分请参考：

1. Sub 按B列内容创建新表()
   
2.     Dim arr, brr(), sh As Worksheet, d As Object, k, t, a, i&, j&, m&, l&, r&
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each sh In Worksheets
   
6.         If sh.Name <> "Sheet1" Then sh.Delete
   
7.     Next
   
8.     arr = [a1].CurrentRegion
   
9.     Set d = CreateObject("Scripting.Dictionary")    '创建字典
   
10.     For i = 2 To UBound(arr)
    
11.         d(arr(i, 2)) = d(arr(i, 2)) & "," & i
    
12.     Next
    
13.     brr = arr
    
14.     k = d.Keys
    
15.     t = d.Items
    
16.     For i = 0 To UBound(k)
    
17.         Sheets.Add(after:=Sheets(Sheets.Count)).Name = k(i)    '放在最右边
    
18.         a = Split(t(i), ",")
    
19.         m = 1
    
20.         For j = 1 To UBound(a)
    
21.             m = m + 1
    
22.             r = a(j)
    
23.             For l = 2 To UBound(arr, 2)
    
24.                 brr(m, l) = arr(r, l)
    
25.             Next
    
26.         Next
    
27.         Sheets(k(i)).Columns("C:C").NumberFormatLocal = "@"
    
28.         Sheets(k(i)).[a1].Resize(m, l - 1) = brr
    
29.     Next
    
30.     Application.ScreenUpdating = True
    
31. End Sub
    

复制代码

zhaogang1960

请测试附件
Book2.rar (39.72 KB, 下载次数: 112)

2014-3-4 17:26 上传

点击文件名下载附件

LMY123

SQL和字典拆分工作表

xjclub

SQL和字典拆分工作表

chenchen8653396

zhaogang1960 发表于 2014-3-4 17:26
请测试附件

A列的姓名新增，其他的附表全部重新创建了，能实现只更新新增姓名吗？

smiletwo

以姓名命名表格容易因重名出错，身份证号码是唯一的。

熊文来

zhaogang1960 发表于 2014-3-4 17:23
字典法拆分请参考：

https://club.excelhome.net/thread-1656945-1-1.html
大师 可以帮我看看这个文件吗？谢谢