[算表] 请教这种写法出现了什么问题

楼主: yyingx (bless)   2016-07-26 12:00:37
软件:office
版本:2007
Sub test1()
Dim RNG As Range
Set RNG = Sheets("生产投料单").Columns(1).Find(what:="产品型号", LookIn:=xlV
alues, LookAt:=xlWhole)
RNG.Offset(2, 0) = 1
End Sub
作者: soyoso (我是耀宗)   2016-07-26 12:06:00
测试于a栏储存格内有"产品型号"情况下,无报错http://imgur.com/CnlQWli测试于a栏储存格内以"产品型号 "情况下,则报错http://imgur.com/upMyuqp在不全等于what下有万用字符(*)或lookat为xlpart
楼主: yyingx (bless)   2016-07-26 14:02:00
发现了一个问题,合并单元格的内容如何找到?
作者: soyoso (我是耀宗)   2016-07-26 14:14:00
如不是在第一列是可以找到的http://imgur.com/bEW9LZ1如包含第一列于range.find内searchdirection指定xlprevioushttp://imgur.com/PUgrBYS
楼主: yyingx (bless)   2016-07-26 14:29:00
还有两种情况,横向合并A1:B1,另外一种情况是A1:B12
作者: soyoso (我是耀宗)   2016-07-26 14:41:00
将columns(1)改为columns("a:b")或[a:b]方式加上searchdirection指定

Links booklink

Contact Us: admin [ a t ] ucptt.com