Перенос данных из столбцов на основе определенных значений.

Question

У меня есть столбец чисел в Excel, которые мне нужно разделить на основе конкретного значения в другом столбце.

До сих пор я использовал сложный способ копирования и удаления, но я хотел бы иметь возможность написать формулу, которая достигает этого.

Я могу написать эту формулу, которая помещает значение в другой столбец для меня, но я также хочу, чтобы значение было удалено из исходного столбца.

= ЕСЛИ (P625 = "ИЛИ", (I625), 0).

Могу ли я написать что-то в конце этой формулы, которая будет удалять значение из I625?

Answer 1

С такими данными, как:

запустив этот короткий макрос:

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

будет производить:

EDIT # 1:

Версия может соответствовать вашим потребностям:

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