用于数据聚合的 VBA 或 excel 公式

Question

我在 excel 中有一个表格，其中列出了公司和在公司工作的各种人员，每个公司可能有 5-7 个人与公司相关联。 该表的结构为公司名称、人员 1、人员 2... 在单元格中

我需要 VBA 或 excel 公式中的方法，其中基于此表，我希望获得与每个人相关联的公司名称 例如。 person1 - 他在他名字下面的单元格中工作的所有公司的列表。

我有 VBA 的基本知识，任何方法或解决方案都非常感谢。

我还不能嵌入图像。所以链接 源表：1：https://i.stack.imgur.com/gMyy8.png

所需输出：1:https://i.stack.imgur.com/x8QxU.png

Answer 1

如果您可以像图片中那样用两列更改数据，您仍然可以使用数据透视表来获取每人的公司列表。例如，通过过滤图片中的内容（抱歉荷兰版的布局​​）。

否则，如果你至少知道所有人的名字，我会建议在 VBA 中使用以下循环

Dim ws as worksheet
Dim wst as worksheet
Dim i,j,k as long
Set ws = Thisworkbook.sheets("SheetNameData")
Set wst = Thisworkbook.sheets("SheetNameLists")
For i = 2 to ws.cells(rows.count,1).end(xlup).row 'Assuming you have headers, start at row 2
   For j = 2 to ws.cells(i,columns.count).end(xltoLeft).column 'Loop through all names in a companyrow
     k = application.worksheetfunction.match(ws.cells(i,j).value,wst.range("1:1"),0) 'find the right column in the output worksheet
     wst.cells(rows.count,k).end(xlup).Offset(1,0).value = ws.cells(i,1).value 'Place the companyname in the column of the right person
   Next j
Next i

对于这个脚本，您需要已经有第二张表，其中第一行包含人名