Sub 列と列の重複判定()
Dim i As Long
'チェック記載用のループ変数
For i = 2 To 7
'シート3のA列と、シート1のC列を照合して1以上を抽出
If WorksheetFunction.CountIf(Sheet3.Range("A:A"), Sheet1.Cells(i, 3)) >= 1 Then
'シート1のD列に抽出結果を記載
Sheet1.Cells(i, 4) = "ある"
End If
Next i
End Sub