vba로 각각의 열에 있는 데이터 비교하기

질문자 : nax****

요구사항

 

위 그림의 B열의 숫자와 F열의 숫자를 비교하여 같은값 또는 유사값 (오차범위내(+-0.01))의 을 찾는 방법을 알고 싶습니다. (위 예제에서 B열의 321.546 (F열 321.546) 과 342.325 (F열 342.335) 가 해당값이 되겠네요)

그리고 찾았을 경우 A열에 찾은 F열 바로 옆 E열의 내용이 표시 되게 하고 싶습니다. (위 예제에서는 A4 열에 test 4 가 A6에 test1 이라는 내용이 뜨게 하고 싶습니다.)

원래는 서로 다른 시트의 내용들 (데이타양이 만개가량 됩니다.) 을 비교하는 것인지라 가능하면 vba파일로 만들고 싶습니다. 잘 부탁드립니다.

 

 

샘플파일

두데이터를 비교하여 오차범위내의 값을 찾기.xlsm

 

 

시연 동영상

 

 

 

'vba 소스

Sub cheak()
With ActiveSheet

Dim temp As Double
Dim temp1 As Double
Dim total As Integer '입력받은 데이터 갯수
Dim i As Integer 'b열 행 번호
Dim j As Integer 'f열 행 번호

total = 10000

For i = 3 To total
temp = Cells(i, 2).Value
If temp * 1 = 0 Then
GoTo BBB
End If

For j = 3 To total
temp1 = Cells(j, 6).Value
If temp - temp1 < 0.01 And temp - temp1 > -0.01 Then
Cells(i, 1) = Cells(j, 5).Value
GoTo FFF
End If

Next j
FFF:
Next i
BBB:

End With
End Sub