急阿，EXCEL的问题，自动匹配输入

我每天都要对两个工作表进行数据录入，其中表1的A、K、L、M列依次是日期、承运人、姓名、电话，表2的L、M、N、O列依次是日期、承运人、姓名、电话，表1的R列是合同编号，表2的B列是合同编号，表1中R列的合同编号是唯一的，我想是否可以在表1录入完成后录入表2的数据时，填写完B列后可以自动搜索表1中的R列，在匹配的情况下能够将表1中同一行A、K、L、M列的数据自动填充到表2的L、M、N、O列，可以实现吗？
表1的名称是2008年发货清单.xls，表2的名称是长吉公司.xls,他们没有在同一个工作簿中，用不用拷贝到同一个工作簿中？
如何编写VBA代码呢？最好把VBA代码写出来，我太笨了

可以啊,你用"="就可以引用了啊.不在一个工作薄中也可以引用的.
其格式是这样的
=[工作表1.xls]Sheet1!$A$1

分绝对引用和相对引用。区别是引用地址里是否有$，有就是绝对引用，没有就是相对引用。
A1－相对引用
$A$1－绝对引用
$A1－列绝对，行相对
A$1－列相对，行绝对

一起学习有条件引用:
SHEET1:
A列 B列 C列
a1 b1 10
a2 b2 20
SHEET2
A列 B列 C列
a1 b1 ?
用什么办法可以将SHEET1中A列为a1且B列为b1的行的C列值引入SHEET2中的C列?

1\=IF(VLOOKUP(A2,Sheet1!A:B,2,FALSE)=B2,VLOOKUP(A2,Sheet1!A:C,3,FALSE),"#N/A")

2\VBA
Sub test()
Dim maxrow As Integer
maxrow1 = [a65536].End(xlUp).Row
With Sheets("Sheet1")
maxrow2 = .[a65536].End(xlUp).Row
For irow1 = 2 To maxrow1
For irow2 = 2 To maxrow2
If Cells(irow1, 1) & Cells(irow1, 2) = .Cells(irow2, 1) & .Cells(irow2, 2) Then
Cells(irow1, 4) = .Cells(irow2, 3)
End If
Next irow2
Next irow1
End With