作者toma2007 (但愿长睡不用醒)
看板Office
标题[算表] VBA里类似crtl+F的功能
时间Fri Apr 11 19:43:23 2008
软体: excel
版本: 2000, 2003
想要做的事情是这样的:
sheet1里 A1:AZ1是名字, 底下A2:AZ30是相对应的数字.
sheet2里 A1:A10是一些字串,
如果sheet2字串任何位置中有出现该名字,
就把sheet1的整栏(例如C1:C30)copy到sheet3去.
手动做的话, 是copy A1, 到sheet2去ctrl+F内容, 有找到的话就回去sheet1 copy&paste
试着用VBA写, 简略来说如下
for each A in Sheets("sheet1").range("A1:AZ1")
for each B in Sheets("sheet2").range(A1:A10")
if InStr(1, B, A, vbTextCompare) >0 ......
两层回圈的方式去找
想问的是有没有其他找法呢? 谢谢!~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.113.18.217