[算表] VBA裡類似crtl+F的功能

看板Office作者 (但願長睡不用醒)時間18年前 (2008/04/11 19:43), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/1
軟體: 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
文章代碼(AID): #17_qxSiS (Office)
文章代碼(AID): #17_qxSiS (Office)