vista de datos en excel

[mrocf]

Hola! Morón

Imaginando que tus datos estuviesen desde [A2:B2] hacia abajo, te sugiero incorporar la siguiente macro:

Código vb:

Sub Macro868()
Dim lr As Long
 
lr = [a2].End(xlDown).Row
 
With Range("d2:d" & lr)
  .Formula = "= IF(A2=A1, """", A2)"
  .Value = .Value
End With
 
With Range("e2:e" & lr)
  .Formula = "= IF($D2="""", """", $B2)"
  .Value = .Value
End With
 
With Range("f2:f" & lr)
  .Formula = "= IF($D2="""", """", $B3)"
  .Value = .Value
End With
 
With Range("g2:g" & lr)
  .Formula = "= IF($D2="""", """", $B4)"
  .Value = .Value
End With
 
With Range("d2:g" & lr)
  .Sort Key1:=[d2], Order1:=xlAscending, Header:=xlNo
  .Columns.AutoFit
End With
 
End Sub
 

Comenta si te ha sido de utilidad, ¿si?
Saludos, Cacho.