誰でもこのコードを実行しようとすると、なぜ型の不一致エラーが出るのか教えていただけますか？

Question

Private Sub CommandButton1_Click() 

If Range("C4").Value <> "" & Range("D4").Value <> "" & Range("E4").Value <> "" & Range("F4").Value <> "" & Range("G4").Value <> "" & Range("H4").Value <> "" & Range("I4").Value <> "" Then 

Set i = Sheets("Sheet2") 

Set e = Sheets("Sheet3") 

Dim d 

Dim j 

j = 3 

Do Until IsEmpty(e.Range("C" & j)) 

If e.Range("C" & j, "F" & j) = i.Range("C4:F4") Then 

If e.Range("G" & j) Is Nothing Then 

e.Range("G" & j, "I" & j) = i.Range("G4:I4") 

Else 

End If 

Else 

i.Range("C4:I4").Copy 

e.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 

End If 

j = j + 1 

Loop 

Else 

End If 

End Sub 

Answer 1

あなたはこのような複数のセルを範囲を比較しているので、あなたのタイプMissmatchは次のとおりです。

If e.Range("C" & j, "F" & j) = i.Range("C4:F4") Then 

VBAは、それはあなたが見ることを期待しないのか分からないので、お答えするのか知りません

、とき4細胞を4細胞と比較する。

意味のある何かを作るために、あなたは範囲を比較する関数を実装する必要があります。

Public Function CompareRanges(rngA As Range, rngB As Range) As Boolean 

    If rngA.Count <> rngB.Count Then 
     CompareRanges = False 
     Exit Sub 
    Else 
     'loop through the cells of rngA and compare them with rngB 
    End If 

End Function