|
▼mo さん:
>期待した数値が返るようになりました。
解決されたようですが、
数値の検索ということで、Match関数で検索する例です。
参考まで。
Sub Try1()
Dim r1 As Range 'Book1 A列
Dim r2 As Range 'Book2 A列
Dim c As Range
Dim m
Application.ScreenUpdating = False
'Book1のA列Loop範囲
With Workbooks("Book1.xls").Worksheets(1)
Set r1 = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
End With
'Book2のA列検索対象範囲
With Workbooks("Book2.xls").Worksheets(1)
Set r2 = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
End With
'500,000を引いてBook2よりMatch検索Loop実行
For Each c In r1
m = Application.Match(c.Value - 500000, r2, 0)
If IsNumeric(m) Then '見つかっ最初の行の6列右の値をI列にCopy
c.Offset(, 8).Value = r2(m, 7).Value
End If
Next
Application.ScreenUpdating = True
End Sub
|
|