1、查找用Range对象的Find方法,返回Rang对象,然后再取Range对象的Row属性或Column属性返回行或列。
2、要注意的是Find方法可能会返回Nothing,要先检查一下,否则后出错。
3、例如:Set C=Range("A1:E10").Find("abc")朐袁噙岿If Not C Is Nothing thenR=C.Row '返回行Cl=C.Column '返回列end if
4、或者:Set 觊皱筠桡C=Range("A1:E10").Find("abc")If Not C Is Nothing then
5、C.SelectR=Selection.Row '返回行Cl=Selection.Column '返回列end if