小77论坛最新地址 Excel VBA【案例】多文献多使命表数据汇总：职工简历信息批量汇总

践诺概要小77论坛最新地址

开心色播多个文献多个使命表数据汇总字典、数组抽象利用

全球好，我是冷水沏茶。

今天在论坛上看到一个求援贴：

[求援] 热切求援求援 多个职工简历表合并生成一个汇总表

现时有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代码

代码见第二条推文。

跋文小77论坛最新地址

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

好，今天就到这，咱们下期相遇。 本站仅提供存储做事，通盘践诺均由用户发布，如发现存害或侵权践诺，请点击举报。