暗淡？r？作為？長的
暗淡？c？作為？長的
暗淡？str？作為？線
暗淡？rng？作為？範圍
str？=?InputBox("輸入搜索內容")
如果？Len(str)？=?0?然後呢？退出？潛水艇
c？=?紙張(“紙張2”)。範圍(" A65536 ")。結束(xlUp)。排
工作表(“摘要”)。使活動
為了什麽？r？=?1?去哪？[A65536]。結束(xlUp)。排
設置？rng？=?行數(r)。查找(字符串，looking:= XL values，？LookAt:=xlPart)
如果？不是嗎？rng？是嗎？什麽都沒有？然後
行數(r)。復制
c？=?c？+?1
工作表(“工作表2”)。範圍(" A "？& amp？c)。PasteSpecial？_
粘貼:=xlPasteAll，？運算:=xlNone，？_
SkipBlanks:=False，？轉置:=False
結束？如果
然後
申請。CutCopyMode？=?錯誤的
結束？潛水艇