根據特定值從列傳輸資料。

Question

我在 Excel 中有一列數字，我需要根據另一列中的特定值將其分開。

到目前為止，我已經使用了冗長的複製和刪除方法，但我希望能夠編寫一個公式來實現它。

我可以編寫這個公式，將值放置在另一列中，但我也希望從原始列中刪除該值。

=IF(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