find的应用
Posted yihao529
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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
以上是关于find的应用的主要内容，如果未能解决你的问题，请参考以下文章