- ©«¤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
|
ø¦n·N«ä¡I
§Ú¬O¦b(K1)¿é¤J¤@Ó¼ÆȦp"12345"¡A¥ÎMACRO CTRL F ¿ï¨ú"K1"¼ÆÈ(¦p12345)¡A¥Ñ¸Ó¼ÆÈ©Ò¦bªºÀx¦s ...
wwh126 µoªí©ó 2013-2-9 21:00
°²³]n¶K¦b²Ä2¶ªºA1¤U- Sub TEST1()
- Dim result As Range
- Sheets(1).Select
- Set result = Cells.Find(What:=[A1].Value, After:=[A1], LookIn:=xlFormulas, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
- False, SearchFormat:=False)
- If Not (result Is Nothing) Then
- Sheets(2).Range("A1").Resize(25, 1).Value = result.Resize(25, 1).Value
- End If
-
- End Sub
-
½Æ»s¥N½X |
|