buscar máximos en una macro mediante "cells.find" excel 2007

[mrocf]

Hola! aheld55. Para una estructura de datos como la mostrada, fíjate en lo siguiente:

Código vb:

Sub Macro993()
Dim Rng As Range
Set Rng = Sheets("Daten").[a1].CurrentRegion.Columns(1)
With Range("c1:c" & [a1].End(xlDown).Row).Offset(, 4)
 
.Formula = "= SUMPRODUCT( (A1 = " & _
  Rng.Address(External:=True) & ")*(B1 = " & _
  Rng.Offset(, 1).Address(External:=True) & ") * ROW(" & _
  Rng.Offset(, 2).Address(External:=True) & ") )"
.Value = .Value
 
.Offset(, -4).Formula = "= IF(" & _
  .Cells(1).Address(False, False) & "=0, """", INDEX(" & _
  Rng.Offset(, 2).Address(External:=True) & ", " & _
  .Cells(1).Address(False, False) & ") )"
.Offset(, -4).Value = .Offset(, -4).Value
.EntireColumn.Delete
 
End With
 
Set Rng = Nothing
End Sub
 

¿Te puede ser de utilidad?
Saludos, Cacho.