由于比较急，好久没有搞程序了，随便弄了个垃圾东西出来，数据多处理则比较费时。
关联字段是“准考证号”，需要复制的字段是“联系地址”。

var
i:integer;
zkz1,dz:string;
begin
Adodataset1.CommandText:='select * from sheet1 ';
Adodataset1.Open ;
for i:=0 to Adodataset1.RecordCount-1 do
begin
zkz1:=Adodataset1.FieldByName('准考证号').Value;
dz:=Adodataset1.FieldByName('联系地址').asString;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add ('Update sheet2 Set 地址="'+dz+'" Where 准考证号="'+zkz1+'"');
ADOQuery1.ExecSQL  ;
adodataset1.FieldDefs.DataSet.Next;
  end;