如何根据excel某一列进行其他列的合并

yakadoo

请教各位大神，如下图所示，我想依据Excel的F列（人员编号），将H至AL列的值进行文本合并。达到每个人只有一行考勤数据的目的，并将这些数据放在“整合”页签中。


人员考勤.rar (54.92 KB, 下载次数: 11)

2019-11-7 14:30 上传

点击文件名下载附件

半百

Sub TEST()
Dim A(1 To 52)
Set D = CreateObject("Scripting.Dictionary")
ARR = Sheets("初版").UsedRange
For I = 4 To UBound(ARR)
    If Not D.EXISTS(ARR(I, 6)) Then
        For K = 1 To 52
            A(K) = ARR(I, K)
        Next
        D(ARR(I, 6)) = A
    Else
        B = D(ARR(I, 6))
        For K = 1 To 48
            If B(K) = "" Then B(K) = ARR(I, K)
            If K < 15 Then B(K + 38) = B(K + 38) + ARR(I, K + 38)
        Next
        D(ARR(I, 6)) = B
    End If
Next
Sheets("整合").Range("A4").Resize(D.Count, 52) = Application.Transpose(Application.Transpose(D.ITEMS))
End Sub

yakadoo

半百 发表于 2019-11-7 17:21
Sub TEST()
Dim A(1 To 52)
Set D = CreateObject("Scripting.Dictionary")

多谢指导，我再试下

yakadoo

谢谢楼上大师指导，已经测试成功了，再次多谢