将行从一个页面复制到另一个页面时（如果它们满足特定条件），VBA运行时错误424

Question

我对VBA和编码非常陌生，并且完全感到困惑 我需要将Rows从一个工作表转到另一个工作表，如果它们填充在一列而不是另一列但是我得到运行时错误424：需要对象。它突出了主演区域 这是我的代码

Sub CopyRowsAcross()

'Name Worksheets
Dim e As Integer
Dim wsd2 As Worksheet:** Set wsd2 = Project.Sheets("DataSheet2")**
Dim wsBS As Worksheet: Set wsBS = Project.Sheets("Budget Summary")

'Set Criteria for copying lines across
For e = 2 To 1776
    'Headers
    If IsEmpty(wsd2.Cells(e, 1).Value) = False And IsEmpty(wsd2.Cells(e, 4).Value) = True Then
        wsd2.Rows(e).Copy wsBS.Rows(wsBS.Cells(wsBS.Rows.Count, 2).End(xlUp).Row + 1)
    End If
Next e

End Sub

Answer 1

你应该为项目分配一个值，删除它或者用这个工作书替换它