想在代码中增加模糊搜索功能 请高人帮助

sevenstar

zaibuo 发表于 2016-8-30 08:12
再麻烦你一下，
现在搜索的是D列的内容，如果我想改成搜索C列的话应该改那段代码呢？
我是绝对的0基础 ...

        For i = 3 To .Range("d65536").End(xlUp).Row
            Set Rng = .Cells(i, 4): st = ch(Rng.Value)
想改成搜索C列的话把上面的“d65536”改成“c65536”，.Cells(i, 4)中的4改成3.

zaibuo

sevenstar 发表于 2016-8-30 10:40
For i = 3 To .Range("d65536").End(xlUp).Row
            Set Rng = .Cells(i, 4): st = ch(R ...

万分感谢
解决我老大问题啦

zaibuo

sevenstar 发表于 2016-8-29 17:29
参考附件：双击A1单元格插入文件
另外：文件是以嵌入对象插入的，插入的文件越多，excel文件会越大。

高人还得来给你添马麻烦呀
这个位置报错我应该怎么弄呀？
错误代码1004

sevenstar

zaibuo 发表于 2016-9-5 10:47
高人还得来给你添马麻烦呀
这个位置报错我应该怎么弄呀？
错误代码1004

这个看不到实际情况不好说，估计是文件路径或文件名包含了不可识别的字符。
On Error Resume Next 把这句加到代码开头（即Sub test()的下面）。
这样会忽略错误，待程序执行完再检查工作表，看哪个文件漏掉了，可能就是这个文件的问题，看该文件的路径或文件名是否有问题。