½Ð°Ý Find Address[¤w¸Ñ¨M&ÁÂÁÂkimbalª©¤j]

HSIEN6001

¦bA¦C¼Ð¥X¡A§ä¨ìD:F½d³ò¤º¬ÛÀ³­Èªº¦ì§}

½Ðª©¤jÀ°§Ú¬Ý¬Ý¸Ó­×­qªº³¡¥÷
ÁÂÁÂ!
Find.rar (6.03 KB)

¤U¸ü¦¸¼Æ: 8

2012-7-16 12:07

kimbal

¸Õ¸Õ

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("¯Ã¬ù", "Ä«ªG", "ªL®Ñ»¨", "­}¼ï¥¬¬¥§J", "¥§§J¶¤", "Åå³Y", "²y°g")
   
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

½Æ»s¥N½X