【求助】Offset应用！

coolabc

有个问题：
我有两张表：
A、B
A表
A0001      A0399      1
A0400      A0699      2
...
B0001      B0500      15
...
B表
A0001
A0002
...

A0700
A0701
..
B0001
B0002
...
现在我想实现的是将B表中的每个编码在A表中的第三列返回！
我知道可以用Offset，但是中间的比较区间方式如何实现呢？

自己用循环做了一个！
把A的数据放到了B数据后面，方便取值！
i为B表，j为A表，返回值在F列
Sub Check()
   Dim i, j As Integer
   With Sheets("A")
   For i = 1 To 1982
     For j = 1 To 71
      If .Cells(j + 1, 8) <= .Cells(i + 1, 1) And .Cells(j + 1, 9).Value >= .Cells(i + 1, 1).Value Then
       .Cells(i + 1, 6).Value = .Cells(j + 1, 10)
       End If
     Next j
    Next i
    End With
End Sub

就是处理起来慢了点！
有没有更快捷的方法呢？