[分享]在VBA中使用Find方法

ahh0511 · 发表于 2014-7-27 22:30

谢谢分享，正需要！

风行无边 · 发表于 2014-11-26 15:20

帮顶～好东西～谢谢

MRHUANGHESIR · 发表于 2015-2-1 14:23

顶！
find是个好东东。

二年级班长 · 发表于 2015-7-18 11:20

先收藏，慢慢谢谢！

lifelm · 发表于 2016-1-21 11:00

本帖最后由 lifelm 于 2016-1-21 11:04 编辑

各位高手，菜鸟请教一下，如下语句为何编译出错呢？

Dim DJ As String
DJ = Left(C6, Sheet1.Cells("C6").Find(" "))

总是提示：“应用程序定义或对象定义错误”

请各位大侠指点啊！
想做的工作是，将“C6"单元格内文本中第一个空格前的字符输出给DJ，然后保存文件时，调用”DJ“。

随心_201320085 · 发表于 2016-1-21 11:44

lifelm 发表于 2016-1-21 11:00
各位高手，菜鸟请教一下，如下语句为何编译出错呢？

Dim DJ As String

Dim DJ As String
DJ = Left([c6], Application.Find(" ", Sheet1.Cells(6, "c"), 1))
在VBA中没有直接写单元格地址的用法，C6，而cells（行，列),而VBA中的find是查找存不存在和ctrl+f是一样的功能，与你想要工作表查找的字符串位置函数find不同，虽说一样的写法，但用法不同！！

lifelm · 发表于 2016-1-21 11:53

随心_201320085 发表于 2016-1-21 11:44
Dim DJ As String
DJ = Left([c6], Application.Find(" ", Sheet1.Cells(6, "c"), 1))
在VBA中没有直接 ...

非常感谢”随心_201320085“的指点，但是我改成”DJ = Left([c6], Application.Find(" ", Sheet1.Cells(6, "c"), 1))“

编译还是提示”类型不匹配“？

随心_201320085 · 发表于 2016-1-21 11:55

lifelm 发表于 2016-1-21 11:53
非常感谢”随心_201320085“的指点，但是我改成”DJ = Left([c6], Application.Find(" ", Sheet1.Cells(6 ...

上传个附件看看，首先你要确保你想要数据工作表是不是sheet1！！其次是确保这个sheet1中的C6有没有空格，如果没有空格查找不到也会报错，一般用on error resume next屏蔽掉！

lifelm · 发表于 2016-1-21 13:40

本帖最后由 lifelm 于 2016-1-21 13:42 编辑

随心_201320085 发表于 2016-1-21 11:55
上传个附件看看，首先你要确保你想要数据工作表是不是sheet1！！其次是确保这个sheet1中的C6有没有空格， ...

附件已上传，”表格调整-另存名.xlsm“中有两个宏，主要是”调整“这个宏一直有问题。请大侠指教！

桌面.zip (28.82 KB, 下载次数: 35)

要处理的是附件中“铁塔...."那个文件。

随心_201320085 · 发表于 2016-1-21 14:13

lifelm 发表于 2016-1-21 13:40
附件已上传，”表格调整-另存名.xlsm“中有两个宏，主要是”调整“这个宏一直有问题。请大侠指教！

要 ...

你这个没有指定工作薄查找。。。

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