| 发布日期：2024-09-08 17:01 点击次数：78 |
实际摘要中文字幕 在线av
多个文献多个使命表数据汇总字典、数组玄虚利用专家好，我是冷水沏茶。
今天在论坛上看到一个求援贴：
[求援] 进军求援求援 多个职工简历表合并生成一个汇总表
偷偷撸当今有200多个职工的简历信息单表（图1），一东谈主一个文献汇总到一个信息汇总表（图2）。
他的数据表是这么的：
图片
汇总表如下，每东谈主一札记载，也即是把明细表给它改为圭表的二维表：
图片
对于文献汇总合并，咱们共享过案例【文献合并器用】、【Excel表合并】，合并对象齐是圭表的二维表，不适用今天这个案例。
今天这个问题看上去不是很复杂，要是统统东谈主齐是交流要道，我的真谛是“父亲”、“母亲”齐是全的，那就可以径直援用使命表单位格的位置来得回数据。
但我是不太心爱径直援用单位格地址这种阵势的，写死了，生动性就差点，咱们写代码已经应该尽量筹商变化、延迟、容错、绝顶情况若何惩处等等。
基本想路：
1、指定明细表文献夹，这里咱们默许是跟“汇总表”放在归并个文献夹下。
2、轮回文献夹中每一个文献，要是是Excel文献，咱们就洞开它，把它赋值给使命簿对象wb。
3、咱们再轮回wb中的每个使命表ws，虽说他这个明细表中只须一个使命表，但很厚情况下并非如斯，可能有其他表，使命表的称号也可能各不交流，是以咱们要轮回判断哪个使命表是咱们需要汇总的指标使命表。
4、凭证实细表格的结构特征，咱们竖立两个Range对象，rng1=A4:F5，rng2=A6:F8。
5、咱们轮回rng1，找到“姓名”单位格，再用offset函数取其右侧单位格，职工姓名，咱们把它手脚字典的key，用一个数组arr手脚item。
6、咱们再分离轮回rng1与rng2，得回各个字段的值，填入arr，再把arr装回字典。
7、把字典的item写入指标使命表“汇总”。
图片
VBA代码
代码见第二条推文。
跋文中文字幕 在线av
1、代码写得比较冗长，我看到有东谈主只写了20几行，主治安受径直指定指标数据单位格地址的阵势。正如我前边所说，我不太心爱这种阵势，从某种进度上来说，缩短生动性，是以代码很长，也算未可厚非吧。2、另外，咱们还筹商了一些绝顶情况，比如，父亲、母亲只须一札记载的，能够规则倒置的，齐不影响取数的准确性。3、昨天的案例【索要最高学历】，有一又友留言，说代码可以简化一下，我研究了一下他的代码，想路确切可以，在此基础上，我从头梳理了一下想路，又精减了几行代码，与我昨天写的代码比拟，减少了一泰半：Sub 最高学历() Dim ws As Worksheet， lastRow As Integer Dim arr()， arrEduBg()， dic As Object， dkey As String， dic1 As Object Set ws = ThisWorkbook.Sheets("信息表") Set dic1 = CreateObject("Scripting.Dictionary") Set dic = CreateObject("Scripting.Dictionary") With ws lastRow = .UsedRange.Rows.Count arr = .Cells(2， 1).Resize(lastRow - 1， 3).Value End With arrEduBg = Array("高中"， "专业"， "本科"， "硕士"， "博士") For i = 0 To UBound(arrEduBg) dic1(arrEduBg(i)) = i Next For i = 1 To UBound(arr) If arr(i， 1) <> "" Then dkey = arr(i， 1) If Not dic.Exists(dkey) Then dic(dkey) = Array(arr(i， 1)， arr(i， 2)， arr(i， 3)) Else If dic1(arr(i， 3)) > dic1(dic(dkey)(2)) Then dic(dkey) = Array(arr(i， 1)， arr(i， 2)， arr(i， 3)) End If End If End If Next Sheets("学历表").Cells(2， 1).Resize(dic.Count， 3) = Application.Transpose(Application.Transpose(dic.items))End Sub好，今天就到这，咱们下期再见。
本站仅提供存储事业，统统实际均由用户发布，如发现存害或侵权实际，请点击举报。
