¿Hay alguna manera de invertir una tabla para cambiar los encabezados de las columnas?

Tengo una list de nombres en la primera columna de mi tabla, y la segunda columna es donde he enumerado todas las funciones en las que está entrenada la persona. ¿Hay alguna manera de crear una nueva tabla que vincule a esta tabla en constante cambio (como más personas se capacitan) que sigue agregando personas a cada function a medida que se entrenan en ella.

La primera tabla es importante, pero también quiero mostrar esta misma información en el segundo método sin tener que editar el file dos veces.

En más detalle, aquí hay un ejemplo de 2 filas en mi primera tabla:

Tom Jones | Phone, social media, coffee Lila Jones | Phone, coffee, voicemail 

Quiero una columna o una tabla vinculada que me muestre: TELÉFONO: Tom Jones, Lila Jones, etc.

Aquí hay un enfoque:

 Sub Tester() Dim c As Range, dict, arr, v, l, shtOut As Worksheet Set shtOut = Sheets("Sheet2") shtOut.UsedRange.ClearContents Set dict = CreateObject("scripting.dictionary") Set c = Sheets("Sheet1").Range("A2") '<< first name in list Do While Len(c.Value) > 0 '<< run until hit an empty name cell l = Trim(c.Offset(0, 1).Value) If Len(l) > 0 Then arr = Split(l, ",") For Each v In arr v = UCase(Trim(v)) If dict.exists(v) Then dict(v) = dict(v) & ", " & c.Value Else dict.Add v, c.Value End If Next v End If Set c = c.Offset(1, 0) Loop With shtOut.Range("A2") '<< output list starts here .Resize(dict.Count, 1).Value = Application.Transpose(dict.keys) .Offset(0, 1).Resize(dict.Count, 1).Value = _ Application.Transpose(dict.items) End With End Sub 

Probablemente quieras algo así:

 Table 1 [ID] AUTOINCREMENT PRIMARY KEY [Name] TEXT Table 2 [ID] Integer PRIMARY KEY [Functions] TEXT 

Luego, en Herramientas de la database> Relaciones crea la reference de la Tabla 1 a la Tabla 2, comtesting los 3 cuadros de integridad referencel. Este es un enfoque más normalizado.