En Excel VBA, si la columna A es la misma, se agregan los datos correspondientes en la columna B.

La idea es filtrar datos no duplicados, luego clasificar y sumar los datos no duplicados y usar SUMIF para realizar una suma de una sola condición.

Graba macros filtradas, elimina macros duplicadas, edita la macro como si fuera tuya y elimina macros grabadas.

Subtest()

Tratar ls como una dimensión entera

Anotar ll como un número entero

Anotar ss como un número entero

p>

Ls = hoja activa. celda (fila. recuento, 1). final (xlup). Cuente el número de filas en la columna a.

Columna(" A:A "). Seleccione

Aplicar. CutCopyMode = False

Hoja activa. rango("a:a"). 'Operación de filtro avanzada: = xlfiltercopy, copiar al rango: = rango ("xfd1"), único: = true 'Filtra los datos no duplicados en la columna A y colócalos en la última columna.

Hoja de actividades. rango ("xfd: xfd "). 'Eliminar columnas duplicadas:= 1, encabezado:= xlno 'Eliminar los datos duplicados filtrados, porque el encabezado se generará solo (versión EXCEL2016).

ll = aplicación. función de hoja de trabajo CountA(activesheet.Range(" XFD:XFD "))

¿Qué hacer? Agregue las categorías de datos filtrados y la salida.

ss = ss + 1

ActiveSheet. rango("C"&ss) = ActiveSheet. alcance("xfd" & ss) & " = " & aplicar. función de hoja de trabajo .SumIf(activesheet.Range("A:A"),ActiveSheet.Range("XFD"&ss),ActiveSheet.Range("B:B"))

Bucle hasta ss = ll

Conector final

Baidu genera automáticamente un número de serie, que no está disponible en VBA.