Transferencia de datos de columnas basadas en valores específicos.

Question

Tengo una columna de números en Excel que necesito separar según un valor específico en otra columna.

Hasta ahora he utilizado una forma larga y complicada de copiar y eliminar, pero me gustaría poder escribir una fórmula que lo logre.

Puedo escribir esta fórmula que coloca el valor en otra columna, pero también quiero que el valor se elimine de la columna original.

=SI(P625="O",(I625),0).

¿Puedo escribir algo al final de esta fórmula que elimine el valor de I625?

Answer 1

Con datos como:

ejecutando esta breve macro:

Sub Oranges()
    i = 1
    For Each r In Columns(2).SpecialCells(2)
        If r.Value = "OR" Then
            r.Offset(0, -1).Copy Cells(i, 3)
            r.Offset(0, -1).Clear
            i = i + 1
        End If
    Next r
End Sub

Producirá:

EDITAR #1:

La versión puede satisfacer sus necesidades:

Sub Oranges2()
    For Each r In Columns(2).SpecialCells(2)
        If r.Value = "OR" Then
            r.Offset(0, -1).Copy r.Offset(0, 1)
            r.Offset(0, -1).Clear
        Else
            r.Offset(0, 1) = 0
        End If
    Next r
End Sub