-excel关联字段,excel选取部分字段

sub kk()
dim i ,j as Integer
for i=1 to 100
for j=1 to 100
if sheet("表2 ").cells(j,1)=sheet("表1 ").cells(i,1) then
sheet("表2 ").cells(j,2)=sheet("表1 ").cells(i,2)
end if
next
next
end sub

代码表示的度意思是如果表2的A1单元知格（身份证号）与表1的A1单元格相同，将表1的A2单元格内容写入到表2的A2单元格。执行道循环从表2的A1单元格一直检查到A100单元格搜寻表1的A1至A100单元格满足以内上条件的执行你要求的功能。
增加单元格的地址就可以容实现你的要求。