[算表] 請教這種寫法出現了什么問題

[yyingx (bless)]

軟體: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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 119.136.35.184
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1469505640.A.EEF.html
→ soyoso: 測試於a欄儲存格內有"產品型號"情況下，無報錯
→ soyoso: http://imgur.com/CnlQWli
→ soyoso: 測試於a欄儲存格內以"產品型號 "情況下，則報錯
→ soyoso: http://imgur.com/upMyuqp
→ soyoso: 在不全等於what下有萬用字元(*)或lookat為xlpart
→ yyingx: 發現了一個問題，合并單元格的內容如何找到？
→ soyoso: 如不是在第一列是可以找到的http://imgur.com/bEW9LZ1
→ soyoso: 如包含第一列於range.find內searchdirection指定
→ soyoso: xlprevious
→ soyoso: http://imgur.com/PUgrBYS
→ yyingx: 還有兩種情況，橫向合并A1:B1,另外一種情況是A1:B12
→ soyoso: 將columns(1)改為columns("a:b")或[a:b]方式
→ soyoso: 加上searchdirection指定