Board logo

標題: 請問 Find Address[已解決&謝謝kimbal版大] [打印本頁]
作者: HSIEN6001    時間: 2012-7-16 12:00     標題: 請問 Find Address[已解決&謝謝kimbal版大]

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

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

請版大幫我看看該修訂的部份
謝謝!
[attach]11695[/attach]
作者: kimbal    時間: 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://forum.twbts.com/)