Excel VBA – 将activerow应用到不同的工作表中

我正在尝试做一些代码，将通过列表运行。 一旦符合条件，它会将该行复制到不同的短表中。

但由于某种原因，我把它的第一行粘贴到不同的工作表后debugging。 debugging是在粘贴function。

Sub UpdateSheetsPendingAction() Sheets("Final_Data").Select Dim Key As String Dim SAANumber As String Dim ReqSent As String Dim AccOpen As String Dim Rejected As String Dim Opener As String Dim SLADate As String Dim InputDate As String Dim PendingCompletion As String Dim PendingAction As String Dim Rejection As String Dim ActRow As Range Dim Import As Range Dim CRow As String For C = 1 To 10000 'Max Number of accounts CRow = C + 1 Key = Range("A" + CRow).Value SAANumber = Range("B" + CRow).Value ReqSent = Range("E" + CRow).Value AccOpen = Range("F" + CRow).Value Rejected = Range("H" + CRow).Value Opener = Range("J" + CRow).Value SLADate = Range("M" + CRow).Value InputDate = Range("N" + CRow).Value PendingCompletion = Range("O" + CRow).Value PendingAction = Range("P" + CRow).Value Rejection = Range("Q" + CRow).Value 'Requester = Range("R" + CRow).Value 'AMREF = Range("S" + CRow).Value '''Pending Action If PendingAction <> "" Then Set ActRow = Range("A" + CRow + ":" + "AZ" + CRow) ActRow.Copy With Sheets(Opener).Select Range("A4").Select Rows(ActiveCell.Row).Insert Rows(ActiveCell.Row).Paste End With End If Next C End Sub 

Answer 1

更改Rows(ActiveCell.Row).Paste

至：

Rows(ActiveCell.Row).PasteSpecial

添加Sheets("Final_Data").Select在您调用For语句后Sheets("Final_Data").Select