你的位置:杨幂 丝袜 > 东流影视限制分级 > 中文字幕 在线av Excel VBA【案例】多文献多使命表数据汇总:职工简历信息批量汇总

中文字幕 在线av Excel VBA【案例】多文献多使命表数据汇总:职工简历信息批量汇总

发布日期:2024-09-08 17:01    点击次数:77

中文字幕 在线av Excel VBA【案例】多文献多使命表数据汇总:职工简历信息批量汇总

实际摘要中文字幕 在线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
好,今天就到这,咱们下期再见。 本站仅提供存储事业,统统实际均由用户发布,如发现存害或侵权实际,请点击举报。