ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD