[已解决]双重条件查找和获取不确定行数的值并引用到指定单元格或区域

好运来5599

详见附件和图示。

最佳答案

月排行榜 / 总排行榜

橘子红

2016-5-10 14:19

附件

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim a, x%, d, b(), s%, r%
   
3. a = Range("a1").CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For x = 1 To UBound(a)
   
6.     If d(a(x, 4)) Then
   
7.          r = d(a(x, 4))
   
8.          b(2, r) = b(2, r) & "," & a(x, 5)
   
9.          b(3, r) = b(3, r) & "," & a(x, 2)
   
10.          If a(x, 3) <> "" Then b(3, r) = b(3, r) & ":" & a(x, 3)
    
11.      Else
    
12.          s = s + 1
    
13.          d(a(x, 4)) = s
    
14.          ReDim Preserve b(1 To 3, 1 To s)
    
15.          b(1, s) = a(x, 4)
    
16.          b(2, s) = a(x, 5)
    
17.          b(3, s) = a(x, 2) & ":" & a(x, 3)
    
18.      End If
    
19. Next
    
20. [j1].Resize(s, 3) = Application.Transpose(b)
    
21. End Sub

复制代码

橘子红

附件

好运来5599

橘子红 发表于 2016-5-10 11:09
附件

“工艺名称”和“说明”以“：”串联，当说明一栏为空时，则不显示“：”。
以L5为例，  ”半网印刷:,啤胶,裱胶,冲压,成品检验“ ，请设定判断条件，以决定是否需要冒号。
应显示为这样  ”半网印刷,啤胶,裱胶,冲压,成品检验“  （去掉冒号）
烦请根据这个条件修改一下，谢谢！

橘子红

附件

好运来5599

非常感谢！您太厉害了，这么简洁的代码，就满足了我所有的需要！完美解决了我的问题！真是太谢谢您啦！

江河行地

函数的，但不能解决标点问题，留下记号。

好运来5599

江河行地 发表于 2016-5-10 15:36
函数的，但不能解决标点问题，留下记号。

虽暂时没能解决标点的问题，但也足以体现出你函数的深厚功底！[em17] 我个人觉得函数应该能解决这类问题，只是需要时间去想办法、去尝试。

好运来5599

橘子红 发表于 2016-5-10 14:19
附件

我现在处理33557行数据，遇到故障了，如图所示。烦请帮忙看看什么原因？

橘子红

好运来5599 发表于 2016-5-28 10:20
我现在处理33557行数据，遇到故障了，如图所示。烦请帮忙看看什么原因？

Dim a, x&, d, b(), s&, r&


第二行改下 试试