求大神指点

kiojohn

内部订单号	工单号
2201-2014040001-0001	5101-2014040032
2201-2014040001-0001	5107-2014040042
2202-2014040013-0001	5101-2014040035
2202-2014040013-0001	5107-2014040050

一个内部订单号对应了多个工单号，如何把相同的内部订单号合并并且将工单号排到一行，或者合并到一个单元格中？

之前想的是，如果能排到一行，可以用&将他们合并到一个单元格中，但是如果一个内部订单号对应的有的2个，有的3个，有的4个工单号会有问题，求大神指点。

xinjiana

有必要吗，这样不是很好吗，方便查阅，修改，处理

DZ潇潇

我也觉得放在一个单元格里完全没有必要

考勤统计.zip (4.94 KB, 下载次数: 2)

2014-4-23 19:30 上传

点击文件名下载附件

kiojohn

xinjiana 发表于 2014-4-23 17:33
有必要吗，这样不是很好吗，方便查阅，修改，处理

需要把这个放到另外一个表单中，已经找到答案了。。。

kiojohn

找个一个答案，多谢大家关注。


Sub yy()
    Dim Arr, i&, d, Myr&
    Set d = CreateObject("Scripting.Dictionary")
    Sheet2.Activate
    [c2:d65535].Clear
    Myr = [a65536].End(xlUp).Row
    Arr = Range("a1:c" & Myr)
    For i = 2 To UBound(Arr)
        If Not d.exists(Arr(i, 1)) Then
            d(Arr(i, 1)) = Arr(i, 2)
        Else
            d(Arr(i, 1)) = d(Arr(i, 1)) & "," & Arr(i, 2)
        End If
    Next
    k = d.keys
    t = d.items
    [c2].Resize(d.Count, 1) = Application.Transpose(k)
    [d2].Resize(d.Count, 1) = Application.Transpose(t)
End Sub

进VB编写在插入控件。。。

shuyee

你是字符型的，可以直接用函数=phonetic()。从你给的代码看，似乎还要有分隔符，可以先写到工单号后面，再用phonetic就行了