按村子将相同学历的人员放在同一个单元格中

51132452

请大神解决，按村子将相同学历的人员放在同一个单元格中

deadzlq

PQ参考解法

51132452

我是菜鸟，麻烦给解释一下操作步骤，完全看不懂是如何实现的。

51132452

deadzlq 发表于 2019-12-23 18:19
PQ参考解法

麻烦给我解释一下操作步骤，我完全看不懂过程

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m, n, dic(1)
  For i = 0 To UBound(dic)
    Set dic(i) = CreateObject("scripting.dictionary")
  Next
  arr = Range("a3:e" & Cells(Rows.Count, "a").End(xlUp).Row)
  ReDim brr(UBound(arr, 1), 30) As String
  For i = 1 To UBound(arr, 1)
    If Not dic(0).exists(arr(i, 2)) Then m = m + 1: dic(0)(arr(i, 2)) = m: brr(m, 0) = arr(i, 2)
    If Not dic(1).exists(arr(i, 5)) Then n = n + 1: dic(1)(arr(i, 5)) = n: brr(0, n) = arr(i, 5)
    brr(dic(0)(arr(i, 2)), dic(1)(arr(i, 5))) = brr(dic(0)(arr(i, 2)), dic(1)(arr(i, 5))) & "\" & arr(i, 3)
  Next
  For i = 1 To m
    For j = 1 To n
      If Len(brr(i, j)) Then brr(i, j) = mid(brr(i, j), 2)
    Next
  Next
  With [h2]
    .Resize(UBound(brr, 1), n + 3).Clear
    With .Resize(m + 1, n + 1)
      .Value = brr
      .Borders.LineStyle = xlContinuous
      .WrapText = True
    End With
  End With
End Sub

zpy2

select 住址,group_concat(distinct(case when 列标签='二本' then 数据 else null end)) as '二本',group_concat(distinct(case when 列标签='三本' then 数据 else null end)) as '三本',group_concat(distinct(case when 列标签='专科' then 数据 else null end)) as '专科',group_concat(distinct(case when 列标签='高中' then 数据 else null end)) as '高中',group_concat(distinct(case when 列标签='中职' then 数据 else null end)) as '中职',group_concat(distinct(case when 列标签='高校新生' then 数据 else null end)) as '高校新生',group_concat(distinct(case when 列标签='初中' then 数据 else null end)) as '初中' from (select 住址,列标签,group_concat(数据,'/') 数据 from 人员名单一维表 group by 住址,列标签) group by 住址