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

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

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

ПРАВКА №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