如何将exce表格l数据自动整理成另一种表格样式？

tututu1988

各位大神，请问Excel表格是否可以实现“表格1l数据自动整理成表格2（另一种样式）”的功能？比如，想将sheet1中表格自动整理成sheet2，是否可行？【有一份来自30多个地区400多人的名单，需要按照这个逻辑进行整理，现在只会一个一个复制粘贴】先行谢过各位大神的指点！

zpy2

分享报表select count(*) 行,地区,group_concat(类别),group_concat(姓名) from (select 地区,类别,group_concat(姓名,"，") 姓名 from 按地区类别汇总明细表 group by 地区,类别) group by 地区
[td]

地区	类别	姓名
吴	A	周瑜，黄盖，陆逊
	C	孙权
蜀	A	刘备，张飞，赵云
	B	诸葛亮
魏	B	曹操，夏侯惇
	C	徐晃

zpy2

select count(*) 行,地区,sum(人数) 地区人数,group_concat(类别),group_concat(人数),group_concat(姓名) from (select 地区,类别,group_concat(姓名,"，") 姓名,count(姓名) 人数 from 按地区类别汇总明细表 group by 地区,类别) group by 地区
[td]

地区	地区人数	类别	人数	姓名
吴	4	A	3	周瑜，黄盖，陆逊
		C	1	孙权
蜀	4	A	3	刘备，张飞，赵云
		B	1	诸葛亮
魏	3	B	2	曹操，夏侯惇
		C	1	徐晃

3190496160

Sub zhengli()
Dim d As Object, dc As Object
Dim ar As Variant
Dim br()
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 3)) <> "" Then
        d(Trim(ar(i, 3))) = d(Trim(ar(i, 3))) + 1
    End If
Next i
ReDim br(1 To UBound(ar), 1 To 5)
For Each k In d.keys
    For i = 2 To UBound(ar)
        If Trim(ar(i, 3)) = k Then
            If Not dc.exists(Trim(ar(i, 4))) Then
                dc(Trim(ar(i, 4))) = ar(i, 2)
            Else
                dc(Trim(ar(i, 4))) = dc(Trim(ar(i, 4))) & "、" & ar(i, 2)
            End If
        End If
    Next i
    m = 0
    For Each kc In dc.keys
        m = m + 1
        n = n + 1
        If m = 1 Then
            br(n, 1) = k
            br(n, 2) = d(k)
        Else
            br(n, 2) = ""
            br(n, 1) = ""
        End If
        br(n, 3) = kc
        If InStr(dc(kc), "、") = 0 Then
            sl = 1
        Else
            rr = Split(dc(kc), "、")
            sl = UBound(rr) + 1
        End If
        br(n, 4) = sl
        br(n, 5) = dc(kc)
    Next kc
    dc.RemoveAll
Next k
With Sheet2
    .UsedRange.Offset(1).Clear
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

名单梳理.rar (12.56 KB, 下载次数: 10)

2021-6-9 08:46 上传

点击文件名下载附件

zwmmdy

只用函数(SUMIF, SUMIFS, TEXTJOIN, IF)处理的方式

tututu1988

zpy2 发表于 2021-6-9 07:48
select count(*) 行,地区,sum(人数) 地区人数,group_concat(类别),group_concat(人数),group_concat(姓 ...

谢谢大神指点！但是我现在我不会熟练运用，今后继续努力！谢谢！

tututu1988

zwmmdy 发表于 2021-6-9 09:50
只用函数(SUMIF, SUMIFS, TEXTJOIN, IF)处理的方式

谢谢大神！您这个方法太适合我这种小白了，已成功运用！

tututu1988

3190496160 发表于 2021-6-9 08:44
Sub zhengli()
Dim d As Object, dc As Object
Dim ar As Variant

谢谢大神！就是您这个程序语言，我还看不懂，会继续学习，谢谢您的指导！