是否可以在For Each循环中剪切和粘贴？

Question

如果要满足条件，我想使用For Each循环剪切并粘贴整行）。

我知道我可以使用例如For Next在wsr.cells(R,C).EntireRow.Cut wsc.Cells(i, "A")循环中剪切和粘贴，其中wsr和wsc是2个不同的工作表，但是有一种方法还可以在For Each循环中做到这一点，我将在工作表的有限范围内（例如列）进行操作？

Dim wbm, wbr As Workbook, wsm, wsr, wsc As Worksheet, LastRowC, LastRowr As Integer, Match As Boolean, ColV, v As Range, vaddr As String

Option Explicit

Public Sub Initialize()

Application.ScreenUpdating = False: Application.Calculation = xlManual: Application.EnableEvents = False

'Must have the correct worksheet name below:

Set wbr = Workbooks("LST_102019_25590000-25590200_MULTIPLE_ACCRUAL ROLL FORWARD TEMPLATE V1.0.xlsm")
Set wsr = wbr.Sheets("Open Items")
Set wsc = wbr.Sheets("Closed Items")

LastRowr = wsr.Cells(Rows.Count, 1).End(xlUp).Row

Sort_WBSe

Application.ScreenUpdating = True: Application.EnableEvents = True

End Sub

Public Sub Sort_WBSe()

    wsr.AutoFilter.Sort.SortFields.Clear
    wsr.AutoFilter.Sort.SortFields.Add _
        Key:=Range("V7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortTextAsNumbers
    With wsr.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Process

End Sub


Public Sub Process()

Dim N As Integer, Amt, AmtNext, WBSe, WBSeNext As String
LastRowC = wsc.Cells(Rows.Count, 1).End(xlUp).Row


Dim i As Long: i = LastRowC + 1 'Set the next row of the Closed Items sheet

'Col V is the WBSe column

'Note: This loop works from the bottom up.

With wsr

    For N = LastRowr To 7 Step -1

        WBSe = .Cells(N, "V"): Amt = .Cells(N, "V").Offset(0, -3)
        WBSeNext = .Cells(N, "V").Offset(-1, 0): AmtNext = .Cells(N, "V").Offset(-1, -3) * -1

        If WBSeNext = WBSe And (AmtNext) = Amt Then
            .Cells(N, "V").EntireRow.Cut wsc.Cells(i, "A") 'Cut the Row and Paste it to the Closed Items sheet
             If .Cells(N, "V") = "" Then
                .Cells(N, "V").EntireRow.Delete 'Delete the Blank Row
             End If

             i = i + 1

            .Cells(N - 1, "V").EntireRow.Cut wsc.Cells(i, "A") 'Cut the Row and Paste it to the Closed Items sheet
             If .Cells(N - 1, "V") = "" Then
                .Cells(N - 1, "V").EntireRow.Delete 'Delete the Blank Row
             End If
             i = i + 1
             N = N - 1
       End If

    Next
End With

End Sub