循环浏览excel和consolodate commons字段中的数据

我想循环浏览一个公司记录列表（a列），并连接有多个公司记录的部门（b列）

Raw Data    
Company Sector
Company 1   A
Company 1   B
Company 2   C
Company 2   D
Company 2   E

Desired Outcome 
Company Sector
Company 1   A, B
Company 2   C, D, E

如果您能为实现此结果提供任何帮助，我们将不胜感激

Sub SortCompanies()
i = 2
Do
VarComp1 = Sheets("Sheet1").Cells(i, 1).Value
VarComp2 = Sheets("Sheet1").Cells(i + 1, 1).Value
If VarComp1 = VarComp2 And VarComp2 <> "" Then
Set VarSec1 = Sheets("Sheet1").Cells(i, 2)
Set VarSec2 = Sheets("Sheet1").Cells(i + 1, 2)
VarSec1.Value = VarSec1.Value & "," & VarSec2.Value
Sheets("Sheet1").Cells(i + 1, 1).EntireRow.Delete
i = i - 1
End If
i = i + 1
Loop While VarComp1 <> ""
End Sub

子SortCompanies（）
i=2
做
VarComp1=板材（“板材1”）.单元（i，1）.值
VarComp2=板材（“板材1”）.单元（i+1，1）.值
如果VarComp1=VarComp2且VarComp2为“”，则
设置VarSec1=板材（“板材1”）。单元（i，2）
设置VarSec2=板材（“板材1”）。单元（i+1，2）
VarSec1.Value=VarSec1.Value&“，”&VarSec2.Value
图纸（“图纸1”）。单元格（i+1，1）。EntireRow.Delete
i=i-1
如果结束
i=i+1
在VarComp1“”时循环
端接头