我在ExcelSheet中有一些数据。如何将这些数据写入具有相同列值的同一行？

Question

我在ExcelSheet中有一些数据。如何将这些数据写入同一列中具有相同值的数据？

我的数据是这样的：

A  B  
1  2
1  3
5  4
5  48
7  58
8  48
8  32 
8  2

我想要这样：

A  B  
1  2,3
5  4,48
7  58
8  48,32,2

如何在VBA中编写此代码？