½Ð°Ý Find Address[¤w¸Ñ¨M&ÁÂÁÂkimbalª©¤j]
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¸Õ¸Õ- Sub EX()
- Dim I As Long, B As Long
- Dim myArr As Variant
- Dim rng As Range
- Application.ScreenUpdating = False
-
- myArr = Array("¯Ã¬ù", "Ä«ªG", "ªL®Ñ»¨", "}¼ï¥¬¬¥§J", "¥§§J¶¤", "Åå³Y", "²y°g")
- B = 0
- With Sheets("Sheet1").Range("D:F")
- For I = LBound(myArr) To UBound(myArr)
- Set rng = .Find(What:=myArr(I), _
- After:=.Cells(.Cells.Count), _
- LookIn:=xlFormulas, _
- LookAt:=xlWhole, _
- SearchOrder:=xlByRows, _
- SearchDirection:=xlNext, _
- MatchCase:=False)
- If Not rng Is Nothing Then
- B = B + 1
- Cells(B, 1).Value = rng.Address
- End If
- Next I
- End With
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|