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

¥i¥H½Ð±Ð·íÄæ¦ì¤£¬O©T©w¦b¤@­Ó¦ì¸m§Ú­n¦p¦ócopy¨ì²Ä2¬¡­¶

¦^´_ 1# hu0318s
  1. Sub ex()
  2. Dim A As Range
  3. With Sheet1
  4. Set A = .Cells.Find("¤u¥O", lookat:=xlWhole)
  5. If Not A Is Nothing Then A.CurrentRegion.Copy Sheet2.[A1]
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD