VBA，我的代码收到类型不匹配错误

Question

收到错误的行是：

If rngT1 = Range("A2:D2") Then

这是完整的子例程：

 Sub Copy_and_Paste_Other_Expenses()
     'Copy  Expense into the Payroll Journal

     Dim rngT1 As Range

        'Set the worksheet name and range appropriately
    Set rngT1 = Range(ActiveSheet.Range("A2"), ActiveSheet.Range("D2").End(xlDown))




     'Paste other expense in  in payroll Journal

    If rngT1 = Range("A2:D2") Then

       rngT1.Copy

    ActiveWorkbook.Sheets("Payroll Journal").Range("N43:Q43").PasteSpecial xlPasteValues

    ElseIf rngT1 <> ActiveWorkbook.Sheets("dat.").Range("A2:D2") Then

      rngT1.Copy

     ActiveWorkbook.Sheets("Payroll Journal").Range("N43:Q46").PasteSpecial xlPasteValues

     End If
    Rows("1:1").Select

    'Turn off Filter

    Selection.AutoFilter


End Sub

Answer 1

您不能像这样比较数组（这是您隐式所做的，因为Range.Value是范围的默认属性）。

不能完全确定要执行的操作，但是如果要检查两个引用是否引用相同的范围，则可以执行

If Range1.Address = Range2.Address Then...