[已解决]find提示下标越界

xdwy81129 · 发表于 2011-1-28 04:59

find提示下标越界
如图，选择红色的第一个单元格，执行下面的代码，为什么提示错误呢？？

未命名.JPG

Sub 单元格—本列定位()
Dim rng As Range L$
L = Split(Selection.Address, "$")(1)
Set rng = Range(L & Selection.Row + 1 & ":" & L & 65536).Find(Selection.Value, , xlPart)
End Sub

find提示下标越界.zip (9.35 KB, 下载次数: 10)

开辆小富康 · 发表于 2011-1-28 05:22

L = Split(Selection.Address, "$")(1)

xdwy81129 · 发表于 2011-1-28 06:48

回复开辆小富康的帖子

还有人起怎么早呀！！

我是没有睡着

回复的代码我宏里有的呀，但是提示不对。

开辆小富康 · 发表于 2011-1-28 07:45

Set rng = Range(l & Selection.Row + 1 & ":" & l & 65536).Find(Selection.Value, , , xlPart)

xdwy81129 · 发表于 2011-1-28 07:53

回复开辆小富康的帖子

原来是自己搞糊涂了，少个逗号。

谢谢了

happyxtbo · 发表于 2011-1-28 09:00

学习了！·！！

		自动登录	找回密码
密码			注册