如何按学科列举学生姓名

zzpsx

如何按学科列举学生姓名.rar (9.76 KB, 下载次数: 9)

2019-10-21 09:07 上传

点击文件名下载附件

我用问卷网统计了家长开放日来听写的家长选课安排，可否列出
听英语课有哪些名单
听数学课有哪些名单？

lovemh1987

你看看怎么样

zzpsx

lovemh1987 发表于 2019-10-21 09:16
你看看怎么样

谢谢，可能我没有表达清楚。我是想列举英语课有哪些学生的家长来听。数学课有哪些学生的家长来听。

lovemh1987

那你至少要给出家人姓名吧

wdx223

用PQ也可以解决

一把小刀闯天下

'自己手工再处理一下，，，

Option Explicit

Sub test()
  Dim arr, i, j, n, t, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion.Resize(, 3)
  ReDim brr(2 * UBound(arr, 1), 1 To 30), m(UBound(brr, 2))
  For i = 2 To UBound(arr, 1)
    t = Split(arr(i, 2), "|")
    For j = 0 To UBound(t)
      t(j) = Trim(t(j))
      If Not dic.exists(t(j)) Then
        n = n + 1
        dic(t(j)) = n: brr(0, n) = t(j)
      End If
      m(dic(t(j))) = m(dic(t(j))) + 1
      brr(m(dic(t(j))), dic(t(j))) = arr(i, 3)
    Next
  Next
  [f6].Resize(UBound(brr) + 1, n) = brr
End Sub

hcm19522

D2:E2 下拉 (D1:E1="英语","数学") {=INDEX($C:$C,SMALL(IF(1-ISERR(FIND(D$1,$B$2:$B$34)),ROW($2:$34),4^8),ROW(A1)))&""