关于创建新数据表，数据字典

duquancai

无穷大 发表于 2019-1-18 23:24
感谢协助，还是有点问题,E列值为：67240254 所对应的F列值：SO2018120300051,SO2018120600045,SO20181224 ...

请检查“输出结果”是否正确》》》》》

everbest2015

abc123281 发表于 2019-1-19 11:52
everbest2015 同学你好
    错误的原因  是字典的条目中字符超过256转置就会失败  导致出现错误值  后续转 ...

好的,已经弄明白了,谢谢,祝新年快乐

everbest2015

无穷大 发表于 2019-1-19 00:09
统一回复，不会高级办法，又多用了一次数据字典，搞定了我想要的结果，感谢各位，新年快乐

现在明白了你同事还要对ordder那一列去重,我写了一个，应该能达到你的效果,供你参考


Sub 对条目去重()
    Dim ar, br(), d, i&, m&, s$, x
    ar = Sheet1.Range("a1").CurrentRegion
    If Not IsArray(ar) Then Exit Sub
    Set d = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(ar)
        s = ar(i, 1) & "☆" & ar(i, 3)
        If s <> "" Then
            If Not d.exists(s) Then
                Set d(s) = CreateObject("Scripting.Dictionary")
            End If
            d(s)(ar(i, 2)) = ""
        End If
    Next
    If d.Count > 0 Then
        Sheet2.Range("a2").Resize(d.Count + 1, 3) = ""
        ReDim Preserve br(1 To d.Count, 1 To 3)
        For Each x In d.keys
            m = m + 1
            br(m, 1) = Split(x, "☆")(0)
            br(m, 2) = Split(x, "☆")(1)
            br(m, 3) = Join(d(x).keys, ",")
        Next
    End If
    Sheet2.Range("a2").Resize(d.Count, 3) = br
    Set d = Nothing
    MsgBox "处理成功", , "提示"
End Sub

everbest2015

请参阅我最近的附件,代码在sheet2工作表代码区,顺祝您新年快乐