将数据按类别分别添加到不同工作表和工作簿，vba怎么写？

sjh701120

求助，
    1、点击按钮，将“全部”工作表中的内容按学校进行分类，并按原(全部)工作表的列表名称顺序分别添加到相应工作表标签名的工作表中，并将“A中学、B中学、C中学、D中学”工作表中的数据分别添加到相同目录下的指定工作簿的指定工作表中？
    2、以后对相应数据进行再次添加时，不删除同工作簿及原来工作簿(A中学、B中学、C中学、D中学)中工作表的数据，工作簿中的所有工作表数据呈递增(累计)添加？


    跪求高手指教。。谢谢！ 按类别分别添加到不同工作表和工作簿.zip (30.16 KB, 下载次数: 54)

2015-1-5 14:38 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim d As Object
   
3.   Dim d1 As Object
   
4.   Dim r%, i%
   
5.   Dim arr, brr
   
6.   Dim ws As Worksheet
   
7.   Dim rng As Range
   
8.   Set d = CreateObject("scripting.dictionary")
   
9.   Set d1 = CreateObject("scripting.dictionary")
   
10.   With Worksheets("全部")
    
11.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.     arr = .Range("a1:g" & r)
    
13.     Set rng = .Cells(1, 1).Resize(1, 7)
    
14.     For i = 2 To UBound(arr)
    
15.       If Not d.Exists(arr(i, 3)) Then
    
16.         Set d(arr(i, 3)) = .Cells(i, 1).Resize(1, 7)
    
17.       Else
    
18.         Set d(arr(i, 3)) = Union(d(arr(i, 3)), .Cells(i, 1).Resize(1, 7))
    
19.       End If
    
20.     Next
    
21.   End With
    
22.   For Each ws In Worksheets
    
23.     d1(ws.Name) = ""
    
24.   Next
    
25.   For Each aa In d.Keys
    
26.     If Not d1.Exists(aa) Then
    
27.       Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    
28.       With ws
    
29.         .Name = aa
    
30.         rng.Copy .Range("a1")
    
31.       End With
    
32.     End If
    
33.     With Worksheets(aa)
    
34.       If .Cells(1, 1) <> "准考证号" Then
    
35.         .Cells.Clear
    
36.         rng.Copy .Range("a1")
    
37.       End If
    
38.       r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
39.       d(aa).Copy .Range("a" & r + 1)
    
40.     End With
    
41.   Next
    
42. End Sub
    

复制代码

chxw68

只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很容易出错。

mmwwdd

chxw68 发表于 2015-1-5 15:23
只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很 ...

能QQ吗，有时在网上太麻烦

sjh701120

谢谢 chxw68老师，我对VBA不懂，能不能在代码后面添加注释，

sjh701120

只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很容易出错。

什么办法可以避免这种“重复点击”情况发生吗？

nihaozaochen

你好，chxw68老师，我想请教两个个问题，1.如果数据只有3列，代码怎么改？2.为什么数据超过20万就溢出？谢谢！

chxw68

nihaozaochen 发表于 2015-1-12 11:09
你好，chxw68老师，我想请教两个个问题，1.如果数据只有3列，代码怎么改？2.为什么数据超过20万就溢出？谢谢 ...

第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。

nihaozaochen

chxw68 发表于 2015-1-12 11:13
第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。

现将c列排序，将c列中是“A中学”的行全选中，代码怎样写？谢谢！

nihaozaochen

chxw68 发表于 2015-1-12 11:13
第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。

老师，不是内存的问题，我将内存扩展到8G，情况还是这样，请老师看看有没有办法解决，谢谢！