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

[µo°Ý] vba ¤p°ÝÃD Àµ½ÐÀ°¦£

[µo°Ý] vba ¤p°ÝÃD Àµ½ÐÀ°¦£

hello ·Q½Ð°Ý¤@¤U
§Ú²{¦b¦b¨Ï¥Îfind·j´Mvba §Ú²{¦b·j´Mªº¨ìªF¦è µM«á·|«ü©w¨ì¨º­ÓÀx¦s®æ¥h

·Q½Ð°Ý§Ú­n«ç»ò§â·j´M¨ìªº¨º¤@ "¦C" ªº¸ê®Æ¥ÎVBA»yªk½Æ»s°_¨Ó

¦^´_ 1# gen3111620
  1. Option Explicit
  2. Sub Ex()
  3.     Dim F As Range
  4.     Set F = Sheets("SHEET1").Cells.Find("A")
  5.     If Not F Is Nothing Then
  6.         F.EntireRow.Copy Sheets("SHEET2").Range("A1")
  7.     End If   
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD