複数の条件

Question

列のクロスシートの比較を行うときに、「オブジェクトはこのメソッドをサポートしていません」というエラーがあります。 。シート2の列AとBの両方の場合シートで1試合の列AとBの両方、それはシートに3

Answer 1

を一致が表示されます、あなたのコード内の多くの問題がありました。将来、実際のコードを掲載してください（スクリーンショットではありません）。

1. if文で "And" vs "&"を気にしてください。
2. ".value"ではなく、 ".values"があなたのvarsにあります。
3. セルで作業しているため、「Dim as string」と表示されます。
4. "ワークシート" 「ワークシート」ではありません。
5. 私はあなたがこれらのための "セット"が必要とは思わない。 （間違っている可能性があります）

以下のコードを試してみてください。 「マッチ」シートに書き込む行を変更する必要があるかもしれません。

Sub find() 

Dim a As String 
Dim b As String 
Dim c As String 
Dim d As String 

a = Worksheets("sheet1").Range("a1").Value 
b = Worksheets("sheet2").Range("a1").Value 
c = Worksheets("sheet1").Range("b1").Value 
d = Worksheets("sheet2").Range("b1").Value 

If a = b And c = d Then 

Worksheets("match").Range("A65536").End(xlUp).Offset(1, 0).Value = c 
Worksheets("match").Range("A65536").End(xlUp).Offset(0, 1).Value = c 

End If 
End Sub