通过excel中的数据循环访问公共区域

我想循环查看公司logging列表（a栏），并在那里有不止一个公司logging的部门（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 

希望得到这个结果的任何帮助

Answer 1

尝试这个

 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