返回列表 上一主題 發帖

請問 Find Address[已解決&謝謝kimbal版大]

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-16 12:00 | 只看該作者

請問 Find Address[已解決&謝謝kimbal版大]

本帖最後由 HSIEN6001 於 2012-7-16 13:59 編輯

在A列標出，找到D:F範圍內相應值的位址

請版大幫我看看該修訂的部份
謝謝!
Find.rar (6.03 KB)
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-7-16 13:32 | 只看該作者
試試
  1. Sub EX()
  2.     Dim I As Long, B As Long
  3.     Dim myArr As Variant
  4.     Dim rng As Range
  5.     Application.ScreenUpdating = False
  6.    
  7.     myArr = Array("紐約", "蘋果", "林書豪", "迪潘布洛克", "尼克隊", "驚訝", "球迷")
  8.     B = 0
  9.     With Sheets("Sheet1").Range("D:F")
  10.         For I = LBound(myArr) To UBound(myArr)
  11.             Set rng = .Find(What:=myArr(I), _
  12.                             After:=.Cells(.Cells.Count), _
  13.                             LookIn:=xlFormulas, _
  14.                             LookAt:=xlWhole, _
  15.                             SearchOrder:=xlByRows, _
  16.                             SearchDirection:=xlNext, _
  17.                             MatchCase:=False)
  18.             If Not rng Is Nothing Then
  19.                 B = B + 1
  20.                 Cells(B, 1).Value = rng.Address
  21.             End If
  22.         Next I
  23.     End With
  24.     Application.ScreenUpdating = True
  25. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題