急！网络售后跟踪进度表！

aut_demon · 发表于 2017-11-2 16:38

需要做一个售后跟踪进度表，需要做一个查询表，碰到问题是，进度记录有多条，没办法用vlookup弄到查询表里去，请高手帮忙解决下，可以用函数或者vba样表和要求在附件中有写，表中写的比较清楚

jsgj2023 · 发表于 2017-11-2 17:21

本帖最后由 jsgj2023 于 2017-11-2 17:23 编辑

欢迎新朋友,建议给出模拟效果!

华半里 · 发表于 2017-11-2 17:37

用的index+if+small+row,你看一下，是想要的效果吗？进度编号没找到。

book.zip (13.34 KB, 下载次数: 14)

jsgj2023 · 发表于 2017-11-2 22:27

Sub Adele()
Set d = CreateObject("scripting.dictionary")
With Sheets("售后记录表")
n = 1
arr = .Range("a1").CurrentRegion
For x1 = 2 To UBound(arr)
If arr(x1, 1) = "" Then arr(x1, 1) = arr(x1 - 1, 1)
Next
For x = 2 To UBound(arr)
If Not d.exists(arr(x, 1)) Then
d(arr(x, 1)) = Array(arr(x, 2), arr(x, 3), arr(x, 4), arr(x, 14), arr(x, 6), arr(x, 7), arr(x, 8), arr(x, 9), arr(x, 11), arr(x, 12), arr(x, 13), 1)
Else
n = n + 1
k = d(arr(x, 1))
k(8) = k(8) & "," & arr(x, 11)
k(9) = k(9) & "," & arr(x, 12)
k(11) = k(11) & "," & n
d(arr(x, 1)) = k
End If
Next
End With
Sheet2.Activate
s = Range("b5")
If d.exists(s) Then
a = d(s): [c5] = a(0): [d5] = a(1): [e5] = a(2): [f5] = a(10): [g5] = a(6)
s1 = Split(a(11), ","): s2 = Split(a(8), ","): s3 = Split(a(9), ",")
With Application
[b12].Resize(UBound(s1) + 1) = .Transpose(s1)
[d12].Resize(UBound(s2) + 1) = .Transpose(s2)
[f12].Resize(UBound(s3) + 1) = .Transpose(s3)
End With
End If
End Sub

复制代码

jsgj2023 · 发表于 2017-11-2 22:29

请见附件！！！

aut_demon · 发表于 2017-12-4 11:10

jsgj2023 发表于 2017-11-2 22:29
请见附件！！！

非常感谢！

aut_demon · 发表于 2017-12-4 11:27

jsgj2023 发表于 2017-11-2 22:27

非常感谢版主大大！效果很好！

jxwfz740724 · 发表于 2021-6-4 17:24

jsgj2023 发表于 2017-11-2 22:29
请见附件！！！

该vba如果先查询的进度编号多于后查询的进度编号，会显示先查询多的那部分，比如先前有三个，后查询的只有一个，会显示后查询的1个加先查询的2和3.
大佬能修改下吗？

		自动登录	找回密码
密码			免费注册

[求助] 急！网络售后跟踪进度表！