求助大神帮忙用vba解决

hooniie

详细见表3要求 合并.zip (38.66 KB, 下载次数: 10)

2020-3-30 22:30 上传

点击文件名下载附件

hooniie

有没有老师可以帮忙解决

3190496160

参考：
Sub test()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("原表").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
    s = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))
    t = d(s)
    If t = "" Then
        k = k + 1
        d(s) = k
        t = k
        For j = 1 To UBound(ar, 2)
            br(k, j) = ar(i, j)
        Next j
    End If
Next i
Sheet2.[a2].Resize(k, UBound(br, 2)) = br
End Sub

3190496160

合并.rar (42.41 KB, 下载次数: 6)

2020-3-31 09:32 上传

点击文件名下载附件

hooniie

3190496160 发表于 2020-3-31 09:31
参考：
Sub test()
Set d = CreateObject("scripting.dictionary")

谢谢，非常感谢你呢