Problemas para agregar celdas en la segunda columna si las primeras son idénticas en matriz de doble dimensión

Mi file Excel se ve así:

Work Pairs Name strobel 400 Katarina strobel 200 Katarina strobel 200 Katarina sekanie 400 Katarina sekanie 300 Katarina sekanie 300 Katarina sekanie 300 Katarina sekanie 200 Katarina sekanie 100 Katarina 

Básicamente, enumera una operación de lo que una persona ha hecho (Trabajo), el número de pares realizados en dicha operación (Pares) y el nombre de la persona (Nombre).

Ya he puesto todo en set haciendo loops dos veces:

  For j = 1 To strDataRange.Rows.Count For k = 1 To 3 arr(j, k) = strDataRange(j, k) Next k Next j 

strDataRange es range de celdas (2,1) a celdas (lastrow, 3). Esta matriz está funcionando correctamente.

Lo que tengo que hacer es si las operaciones en la primera columna tienen el mismo nombre, agregue el número de pares hechos en dicha operación en set y haga una nueva list (o matriz) con esta información, es decir. el resultado final sería

 strobel 800 Katarina sekanie 1600 Katarina 

No estoy exactamente seguro de cómo hacer esto (muy inexperto con la progtwigción), y preferiría no perder 20 horas probando cosas que no funcionarían aunque las hiciera correctamente.

Mi idea sería algo así como:

  For m = 1 To UBound(arr, 1) If arr(m, 1) = arr(m + 1, 1) Then <make new array where the pairs of first 2 matches add up> <somehow make this new array iterate until there are no 2 identical matches> Next m 

Muchas gracias, agradezco cualquier ayuda!

¿Por qué hacerlo en VBA?

Crear una tabla dinámica:

  • Agregar trabajo a ROWS
  • Agregar pares a VALORES

¡y voilá!

Cómo crear una tabla pivote

Ve a Insertar-> Tabla dinámica. Proceda como se menciona anteriormente en el panel de campos de la tabla dinámica.

Lea más aquí: https://support.office.com/en-sg/article/Overview-of-PivotTable-and-PivotChart-reports-00a5bf71-65cb-49f9-b321-85bb7b0b06c2