find的应用

标签：contents   sub   clear   nts   应用   nbsp   find   off   赋值   

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 

find的应用

标签：contents   sub   clear   nts   应用   nbsp   find   off   赋值   

原文地址：https://www.cnblogs.com/yihao529/p/12297857.html