[已解决]公式求助，谢!

蓝风衣 · 发表于 2012-6-30 16:49

本帖最后由蓝风衣于 2012-6-30 17:18 编辑

求助.xls (22 KB, 下载次数: 18)

ws278106483 · 发表于 2012-6-30 19:39

这个最佳答案由 ws278106483 给出，感谢 ws278106483 的回答。

单击隐藏图章

=TEXT(SUBSTITUTE(SUM(IF(B19&C19&D19&E19=B6:B12&C6:C12&D6:D12&E6:E12,A6:A12)*10^(7-ROW(1:7))),"0",),REPT("0!.",COUNT(IF(B19&C19&D19&E19=B6:B12&C6:C12&D6:D12&E6:E12,A6:A12))))
alt+shift+enter三键结束

ws278106483 · 发表于 2012-6-30 19:42

选择三个单元格
=SMALL(IF(B19&C19&D19&E19=B6:B12&C6:C12&D6:D12&E6:E12,A6:A12),ROW(1:7))
alt+shift+enter三键结束

ws278106483 · 发表于 2012-6-30 19:47

楼主附件跟上。。。

sliang28 · 发表于 2012-6-30 21:57

=TEXT(SUBSTITUTE(SUM(((C6:C12=C19)*A6:A12)*10^(7-ROW(1:7))),0,""),"0!.0!.0")

复制代码

周义坤 · 发表于 2012-7-1 12:26

公式不通用，数据多了，就失效了！

Sub ek_sky()
Dim arr1, arr2(1 To 10000, 1 To 6), PK
Dim i&, j&
Dim d1 As New Dictionary
With Sheets("成绩统计表")
arr1 = .Range("A3:F" & .Cells(3, 1).End(4).Row)
End With
Application.ScreenUpdating = False
For i = 1 To UBound(arr1)
PK = arr1(i, 2) & arr1(i, 3) & arr1(i, 4) & arr1(i, 5)
If d1.Exists(PK) Then
arr2(d1(PK), 5) = arr2(d1(PK), 5) + arr1(i, 6)
arr2(d1(PK), 6) = arr2(d1(PK), 6) & "," & arr1(i, 1)
Else
j = j + 1
d1.Add PK, j
arr2(j, 1) = arr1(i, 2): arr2(j, 2) = arr1(i, 3)
arr2(j, 3) = arr1(i, 4): arr2(j, 4) = arr1(i, 5)
arr2(j, 5) = arr1(i, 6): arr2(j, 6) = arr1(i, 1)
End If
Next i
Application.ScreenUpdating = True
With Sheets("成绩查询")
.Range("A:F").ClearContents
.Range("A1:F1") = Array("专业类", "姓名", "性别", "来源", "总分", "行号")
.Range("A2").Resize(d1.Count, 6) = arr2
End With
End Sub

复制代码

求助.zip (11.45 KB, 下载次数: 4)

蓝风衣 · 发表于 2012-7-16 16:26

sliang28 发表于 2012-6-30 21:57

谢谢。。你这个公式很强大。可以在一格列出来。。。不过没有明白你这公式的意思。。。

蓝风衣 · 发表于 2012-7-16 16:43

周义坤发表于 2012-7-1 12:26
公式不通用，数据多了，就失效了！

版主你这个太强大了。。。谢谢。。。

灰常感谢。

		自动登录	找回密码
密码			注册