ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¿ï¨ú«ü©w¼Æ­È

[µo°Ý] ¦p¦ó¿ï¨ú«ü©w¼Æ­È

§Q¥ÎCTRL F ¿ï¨ú¼Æ­È«á¡A¥Ñ·í«eÀx¦s®æ¦V¤U25¦æ©M¦V¥k6¦C¡A¶i¦æCOPY AND PASTE.

¦^´_ 1# wwh126
Copy¸Ó¦ì²¾«áªºÀx¦s®æ¶Ü?
Paste¨ì­þ­Ó¦ì¸m?
°ÝÃDÀ³¸Ó»¡©ú²M·¡
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

­ø¦n·N«ä¡I
§Ú¬O¦b(K1)¿é¤J¤@­Ó¼Æ­È¦p"12345"¡A¥ÎMACRO CTRL F ¿ï¨ú"K1"¼Æ­È(¦p12345)¡A¥Ñ¸Ó¼Æ­È©Ò¦bªºÀx¦s®æ(¥i¯à¬OA5¥i¯à¬OA105)¶}©l¡A¦V¥k¼Æ6¦æ©M¦V¤U¼Æ25¦C¡ACOPY ¸Ó½d³ò¨ì¥t¤@¤u§@­¶¶K(SHEET 2)¤W¡C

TOP

­ø¦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
  1. Sub TEST1()
  2.     Dim result As Range
  3.     Sheets(1).Select
  4.     Set result = Cells.Find(What:=[A1].Value, After:=[A1], LookIn:=xlFormulas, _
  5.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  6.         False, SearchFormat:=False)
  7.     If Not (result Is Nothing) Then
  8.         Sheets(2).Range("A1").Resize(25, 1).Value = result.Resize(25, 1).Value
  9.     End If
  10.    
  11. End Sub
  12.    
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD