Red de conocimiento del abogados - Ley de patentes - Excel VBA, si la columna A es la misma, sume los datos de la columna b.

Excel VBA, si la columna A es la misma, sume los datos de la columna b.

Referencia:

Sub SumCalculation()

Atenuar la primera fila mientras dure, la última fila mientras

Atenuar MyCpt mientras

Atenuar F como rango

Atenuar I mientras

Atenuar MyFormula como cadena

Application.ScreenUpdating = False

Primera fila = 2

Última fila = Celdas(Filas.Count, "A").End(xlUp).Fila

Rango(Celdas(Primera fila, "B"), Celdas(Última fila, " B")).ClearContents

Para I = Primera fila a última fila

Si (Celdas(I, "A") <> "") Entonces

MiFórmula = "CONTAR.SI(A" & PrimeraFila & ":A" & I & ",A" & I & ")"

MiCpt = Evaluar(MiFórmula)

Si (MiCpt = 1) Entonces

MiFórmula = "SUMAPRODUCTO((A" & PrimeraFila & ":A" & ÚltimaFila & "=A" & I & ")*(C" & PrimeraFila & ":C" & ÚltimaFila & "))"

Celdas(I, "B") = Evaluar(MiFórmula)

Finalizar si

Siguiente I

Application.ScreenUpdating = True

End Sub