在新建的表中统计，所有表中每个"姓名"旁各学科总的"优"的数量

simon__pu

在新建的表中统计，所有表中每个"姓名"旁各学科总的"优"的数量（数字形式）各是多少

                       语文   数学 ...
例如：张雅涵       8       5   ...

谢谢！！

cyq4896

试试是这样吧

清风竹-

请看附件。

qdtzq

sql方法......

cyq4896

再试试....

cyq4896

先判断空再查

grf1973

参与一下。4楼sql方法不错

lushang2018

lushang2018

1. Sub 测试()
   
2.     Dim i%, j%, k%, m%, n%, arr, brr, crr, drr
   
3.     Dim dic As Object, key, keys, items
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     Dim dic1 As Object, key1, keys1, items1
   
6.     Set dic1 = CreateObject("scripting.dictionary")
   
7.     arr = Sheet1.Range("A1:L" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row)
   
8.     For i = 2 To UBound(arr)
   
9.         If arr(i, 1) <> "" Then
   
10.             key1 = arr(i, 2)
    
11.             dic1(key1) = ""
    
12.             For j = 3 To UBound(arr, 2)
    
13.                 key = arr(i, 2) & "," & arr(1, j)
    
14.                 If arr(i, j) = "优" Then
    
15.                     dic(key) = dic(key) + 1
    
16.                 End If
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     keys1 = dic1.keys
    
21.     Range("N2").Resize(dic1.Count, 1) = Application.Transpose(dic1.keys)
    
22.     brr = Range("N1").CurrentRegion.Value
    
23.     For i = 2 To UBound(brr)
    
24.         For j = 2 To UBound(brr, 2)
    
25.             key = brr(i, 1) & "," & brr(1, j)
    
26.             brr(i, j) = dic(key)
    
27.         Next
    
28.     Next
    
29.     Range("N1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
30. End Sub

复制代码

全党

用字典嵌套做的，试试。。。。。。。。。。。。。。。