Se puede sumar valores repetidos en Excel
La presente es para solicitar su ayuda nuevamente, pues como pueden observar en dicha tabla tengo 3 COLUMNAS que van desde la A hasta la C y 16 FILAS que van de la 1 hasta la 16.
Necesito sumar en la columna C, siendo que en columna A y B tengo repetidos como lo pueden observar.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
[Hola
Te paso la macro de Dante, el resultado será en la hoja2. Cambia los nombre de las hojas por el tuyo.
Sub subtotales()
'Por.DAM
'Act. Adriel Ortiz
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.ClearContents
u = h1.Range("A" & Rows.Count).End(xlUp).Row
'
With h1.Sort
.SortFields.Clear: .SortFields.Add Key:=h1.Range("A2:A" & u)
.SetRange h1.Range("A1:C" & u): .Header = xlYes: .Apply
End With
ant = h1.Cells(1, "A")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To u + 1
If h1.Cells(i, "A") <> ant Then
h2.Cells(j, "A") = ant
h2.Cells(j, "B") = h1.Cells(1, "B")
h2.Cells(j, "C") = tot
tot = 0
j = j + 1
End If
tot = tot + h1.Cells(i, "C")
ant = h1.Cells(i, "A")
Next
MsgBox "Fin"
End SubValora la respuesta *Excelente o bueno para finalizar saludos!
