|
間違いがありました。
>Set FR = Sheets("Sheet2").Range("A:A") _
.Find(FDt, , xlValues, xlPart)
↓
Set FR = Sheets("Sheet2").Range("A:A") _
.Find(C.Value, , xlValues, xlPart)
と、修正して下さい。
>シート1のB列に結果を表示
結果としては
Dim MyR As Range, C As Range, FR As Range
Set MyR = Sheets("Sheet1").Range("A:A").SpecialCells(2)
For Each C In MyR
Set FR = Sheets("Sheet2").Range("A:A") _
.Find(C.Value, , xlValues, xlPart)
If Not FR Is Nothing Then
C.Offset(, 1).Value = FR.Offset(, 1).Value
Set FR = Nothing
End If
Next
Set MyR = Nothing
|
|