find的应用

Range("k4") = Range("d:d").Find(Range("j4")).Offset(0, 3）

range("d:d").find(range("j4")).offset(0,3).clearcontents   '删除找到的内容

 

 

sub 查找（）

dim rng as range

set rng =range("d:d").fing(range("j4"))

'把对象赋值给变量要加set 关键字

if rng is nothing  then

   msgbox("查无此人")

else

range("k4")=rng.offset(0,3)

 end if

end sub