Fusión dinámica de celdas verticales, en VBA o macros

Question

Obtengo datos con una fila para cada artículo pedido por persona que lo pidió. Estoy tratando de consolidar eso en una sola fila de la persona y una combinación de los elementos ordenados.

datos originales en hoja de cálculo:

El objetivo final de los datos:

Desde mirar tu respuesta hasta... Macro para fusionar celdas en una columna si las mismas filas se combinan en una columna diferente

Tengo una idea de qué hacer.

Primero podría intentar fusionar todos los nombres en una celda y luego tengo una situación en la publicación anterior. Aunque no estoy seguro de cómo podría hacerlo. Si sería una cláusula if A1=A2, A1&'', eso no me funciona del todo en este momento.

Entonces, cualquier ayuda con esto sería genial.

Answer 1

La combinación de UDF& SUBSTITUTEpuede resolver el problema:

Cómo funciona:

• Poner 0en celda I236y fórmula en celdaI237:

=IF(G236=G237,I236+1,0),llénelo.

• O presioneAlt+F11 oRhaga clic derecho enStecla TAB y pulsaVVer código paraohlápiz VB Editor.

• Ccopiar yPAGGuarde este código VBA comoMETROodulo.

  Function SingleCellValue(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
  
  Dim i As Long
  Dim xRet As String
  For i = 1 To LookupRange.Columns(1).Cells.Count
      If LookupRange.Cells(i, 1) = Lookupvalue Then
          If xRet = "" Then
              xRet = LookupRange.Cells(i, ColumnNumber) & Char
          Else
              xRet = xRet & "" & LookupRange.Cells(i, ColumnNumber) & Char
          End If
      End If
  Next
  SingleCellValue = Left(xRet, Len(xRet) - 1)
  End Function
  

• Escribir fórmula en celdaH249:

=SingleCellValue(G249,G236:H246,2,",")

• Fórmula final en celdaI249:

=SUBSTITUTE(H249, "Cust. Order,", "", 1)

Complete la fórmula hacia abajo.

NÓTESE BIEN

• Para mayor claridad, más adelante puede ocultar valores en Cell H249:H251.
• Ajuste las referencias de celda en la fórmula según sea necesario.