Sumar columna B cuando columna A sea igual

Hola.
Tengo el siguiente problema, espero que me puedas ayudar.
Tengo una columna A y una columna B, la columna A tienes códigos y la columna B viene valores numéricos, lo que necesito es que en una nueva hoja tome todos los códigos de la columna A y cuando se repitan códigos sume los valores de la columna B. Ejemplo
Columna A Columna B
A 10
b 11
c 15
A 16
c 8
Nueva Hoja
Columna A Columna B
A 26
b 11
c 23
Muchas gracias por la ayuda
1

1 respuesta

Respuesta
1
h1= hoja origen
h2= hoja destino
''''''''''''''''
Sub SUMAIGUALES()
H1 = ''''
H2 = ''
FILA = 2
fila2 = 2
Do While Worksheets(H1).Cells(FILA, 1).Value <> ""
valor1 = Worksheets(H1).Cells(FILA, 1).Value
flag = False '' variable que determina si la variable esta repetida
    For i = 1 To fila2
        If valor1 = Worksheets(H2).Cells(i, 1).Value Then
        flag = True
        End If
    Next i
If flag = False Then
Worksheets(H2).Cells(fila2, 1).Value = valor1
fila2 = fila2 + 1
End If
FILA = FILA + 1
Loop
For j = 2 To fila2
suma = 0
valor = Worksheets(H2).Cells(j, 1).Value
FILA1 = 2
Do While Worksheets(H1).Cells(FILA1, 1).Value <> ""
If Worksheets(H1).Cells(FILA1, 1).Value = valor Then
suma = suma + Worksheets(H1).Cells(FILA1, 2).Value
End If
FILA1 = FILA1 + 1
Loop
Worksheets(H2).Cells(j, 2).Value = suma
Next j
End Sub
Super probado de que te funciona

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas