[已解决]请教：按条件分配数据

海水鱼

请看附件，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2013-4-15 22:09

请教：按条件分配数据到各工作表3.rar (11.56 KB, 下载次数: 36)

2013-4-15 22:09 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
   
4.         Dim x, y, rngA, rngB
   
5.                
   
6.         x = [a1]: y = [a2]
   
7.         Set rngA = Range("d3:z4")
   
8.         Set rngB = Sheets(x).Range("a:a").Find(y)
   
9.         Application.EnableEvents = False
   
10. 
    
11.         '分表
    
12.         If Not rngB Is Nothing Then rngA.Copy rngB.Offset(0, 1)
    
13. 
    
14.         '汇总表
    
15.         If Target.Address = "$A$1" Then
    
16.             Set rngA = Range("d3:z9")
    
17.             Set rngB = Sheets("汇总表").Range("a:a").Find(x)
    
18.             If Not rngB Is Nothing Then rngA.Copy rngB.Offset(0, 2)
    
19.         End If
    
20.         
    
21.         Application.EnableEvents = True
    
22.         
    
23.     End If
    
24.    
    
25. End Sub

复制代码

请教：按条件分配数据到各工作表2.rar (9.02 KB, 下载次数: 7)

2013-4-15 20:44 上传

点击文件名下载附件

su45

咱也做了个，给你试试：

请教：按条件分配数据到各工作表.zip (11.38 KB, 下载次数: 5)

2013-4-15 20:51 上传

点击文件名下载附件

海水鱼

爱疯 发表于 2013-4-15 20:44

你好，我不想A1或A2单元格变动，就执行宏，请用Sub 数据分配到各对应表中()和Sub 数据分配到汇总表中()，这样格式写个，麻烦了，谢谢！

海水鱼

su45 ，你好第2个宏不对，麻烦在看看，谢谢

爱疯

请教：按条件分配数据到各工作表3.rar (11.56 KB, 下载次数: 36)

2013-4-15 22:09 上传

点击文件名下载附件

A1090A

最佳答案，顶起哟，又学习

tiange-yh

学习学习

ddjjjj

提示:附件无法读取?