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が範囲のデフォルトプロパティであるため、あなたが暗黙のうちに行っていることです）。

あなたがやろうとしているか全くわからないが、あなたは2つの参照があなたが

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