两个条件的数据归类，显示

meajc4u

数据归类.7z (6.97 KB, 下载次数: 11)

2015-5-4 09:19 上传

点击文件名下载附件

有两个表，第一张是原始数据表，第二张是希望结果显示的表，能否根据条件把人名显示在第二页的九宫格里，例如“吴晓云”绩效A，能力90分，显示在D2。
表特别多，每个部门都有，每个季度都有，希望能程序实现。
多谢帮忙了！

TomingTang

比如d2有多个人，那怎么摆放？是用逗号分隔？ 每个部分都有，这些的数据又是怎么样的？请模拟一下结果，谢谢。

meajc4u

TomingTang 发表于 2015-5-4 09:52
比如d2有多个人，那怎么摆放？是用逗号分隔？ 每个部分都有，这些的数据又是怎么样的？请模拟一下结果，谢谢 ...

数据归类.7z (7.06 KB, 下载次数: 7)

2015-5-4 10:08 上传

点击文件名下载附件

类似这样的，把所有符合条件的人名放到合适的单元格就行

meajc4u

TomingTang 发表于 2015-5-4 09:52
比如d2有多个人，那怎么摆放？是用逗号分隔？ 每个部分都有，这些的数据又是怎么样的？请模拟一下结果，谢谢 ...

大哥~帮个忙吧，多谢了！

TomingTang

1. Sub 处理()
   
2.     Dim Arr, Brr, drow%, i%, j%, d
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With Worksheets("评分表")
   
5.         drow = .Range("a65536").End(3).Row
   
6.         Arr = .Range("a2:d" & drow)
   
7.     End With
   
8.     With Worksheets("九宫格")
   
9.         Brr = .Range("a1:d4")
   
10.         For i = 1 To UBound(Arr)
    
11.             If Arr(i, 3) < 60 Then
    
12.                 Arr(i, 4) = "60以下"
    
13.             ElseIf Arr(i, 3) >= 60 And Arr(i, 3) <= 80 Then
    
14.                 Arr(i, 4) = "60-80"
    
15.             Else
    
16.                 Arr(i, 4) = "81-100"
    
17.             End If
    
18.             If Not d.exists(Arr(i, 2) & Arr(i, 4)) Then
    
19.                 d(Arr(i, 2) & Arr(i, 4)) = Arr(i, 1)
    
20.             Else
    
21.                 d(Arr(i, 2) & Arr(i, 4)) = d(Arr(i, 2) & Arr(i, 4)) & "," & Arr(i, 1)
    
22.             End If
    
23.         Next
    
24.   '  MsgBox 1
    
25. 
    
26.         For i = 2 To UBound(Brr)
    
27.             For j = 2 To UBound(Brr, 2)
    
28.                 Brr(i, j) = d(Brr(i, 1) & Brr(1, j))
    
29.             Next
    
30.         Next
    
31.         .Range("a1").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
    
32.     End With
    
33. End Sub
    

复制代码

TomingTang

请查看附件。