根据另一个单元格中的数据从单元格中删除数据

Question

This is how it is.

This Is how it should be

在图像中可以看出ColumnB具有“周关”和“0”。 如果相应的ColumnB具有“Week-Off”，我需要一个可以从ColumnA切割数据的宏，并将其粘贴到ColumnA的下一个空行中。

我有这个，但它似乎没有做我想要的

Sub Button1_Click()

    Dim i As Long

    For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
        If Cells(i, 2) = "Week-off" Then
            Range("a").Cut Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1)

        End If
    Next

End Sub

Answer 1

该解决方案由@Tim Williams发表评论，因此将其作为答案发布。

Sub Button1_Click()
Dim i As Long

For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
    If Cells(i, 2) = "Week-off" Then
        Cell(i,1).Cut Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1)

    End If
Next

End Sub