VBA需要使用字典，代碼理解有壹定的難度，對於妳例子這樣已經排序的情況是可以用公式實現的：
C1公式為：
=B1&IF(A1=A2,","&C2,"")
下拉，如下圖：
每個數據的第二行成為中間變量，但是別的表VLOOKUP獲取結果的時候只選出第壹個值，就是需要的內容。