VBA需要使用字典，代码理解有一定的难度，对于你例子这样已经排序的情况是可以用公式实现的：
C1公式为：
=B1&IF(A1=A2,","&C2,"")
下拉，如下图：
每个数据的第二行成为中间变量，但是别的表VLOOKUP获取结果的时候只选出第一个值，就是需要的内容。
CONCATENATE 函数呢？
=CONCATENATE("Stream population for ", A2, " ", A3, " is ", A4, "/mile")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024