[已解决]求助大神：同一列多对一如何引用

samy123

同一名字，对应多个客户拜访客户，要求引用后，每个名字对应的客户，用顿号顿开。
请大神指导？不胜感激。

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2017-1-12 21:05

有朋友提供了一种用辅助列的方式。
见附件

跳转到最佳答案楼层

心正意诚身修

函数的话。。不了解2016版的TEXTJOIN用法。。
如果是2013及以前的版本。。除非对拜访人先排序。否则。函数是实现不了这种功能的。

心正意诚身修

有朋友提供了一种用辅助列的方式。
见附件

望帝春心

1. Function TEXTJOIN(rng As Range) As String
   
2. Dim i&, n%, arr, brr(), s As String
   
3. With Sheets("导出数据")
   
4. arr = .Range("a1:c" & .Cells(Rows.Count, 1).End(3).Row)
   
5. End With
   
6.     For i = 2 To UBound(arr)
   
7.             If arr(i, 2) = rng.Value Then
   
8.                 n = n + 1
   
9.                 ReDim Preserve brr(1 To n)
   
10.                 brr(n) = arr(i, 3)
    
11.             End If
    
12.     Next
    
13. s = Join(Application.Transpose(Application.Transpose(brr)), "、")
    
14. TEXTJOIN = s
    
15. End Function

复制代码

望帝春心

1. 参考附件

复制代码