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

[µo°Ý] ¦p¦ó¥ÎVBA§ä¥X¸ê®Æ¨Ã½Æ»s¨ì·s­¶­±¤W

[µo°Ý] ¦p¦ó¥ÎVBA§ä¥X¸ê®Æ¨Ã½Æ»s¨ì·s­¶­±¤W

³]­p¤@­ÓVBA·Q±q¤@°ï¸ê®Æ¤¤§ä¥X­nªº¸ê®Æ¡A¨Ã§â¸ê®Æ½Æ»s¨ì¥t¥~·s­¶­±¤W¡C
¸ÕµÛ°µ§¹¡Aµ{¦¡«o¥u¶]¬d§ä©T©w¦ì¸m¡A¤£ª¾¹D¸Ó¦p¦ó­×§ï¡C
¤½¥q¤§«eªº«e½ú¯d¤UÀɮסA¬Ý¤£¥X¨Óµ{¦¡¡A¦ý³oµ{¦¡°õ¦æ¤è¦¡¡A¬O¤p©f»Ý­nªº
·Q½Ð±Ð¦U¦ì¤j¤jÀ°¦£¡A¤p©f¯uªº»Ý­n³o­Óªí®æ¿z¿ï¸ê®Æ¡A½Ð¦U¦ì¤j¤j­Ì«ü¾É¤@¤G¡AÁÂÁ¡C
¤½³ø³n¥ó.rar (89.32 KB)

¸Õ¸Õ¬Ý¥i¤£¥i¥H
  1. bookname = ActiveWorkbook.Name
  2. J = Workbooks(bookname).Worksheets("¥þ").[D65536].End(xlUp).Row
  3. Worksheets("­ì©l¸ê®Æ").[A:A].Find("¦a§}").Activate
  4. Selection.Copy
  5. Workbooks(bookname).Worksheets("¥þ").Range("D" & J + 1).PasteSpecial Paste:=xlPasteValues
  6. Application.CutCopyMode = False
½Æ»s¥N½X

TOP

ÁÂÁ±z¡A¥i¤p©f¥Î¤W¤§«á¸õ¥X¿ù»~¡A¦ý¤£ª¾¹D¤p©f­þ¸Ì¥Î¿ù¤F¡A¦A³Â·Ð¤j¤jÀ°¦£¡AÁÂÁ±z¡C

TOP

¸Õ¤@¤U «ö§¬2

±M§Q¤½³ø³n¥ó(§ì¤½³ø).zip (47.27 KB)

TOP

ÁÂÁ¤j¤j¡A¥i¥H¨Ï¥Î¡A¹ê¦b¤Ó·PÁ¡C
¤p©f·Q¦A½Ð±Ð¤@¤U¡A¦pªG­n¿ï¥X©Ò¦³¦a§}ªº¸Ü¡A¬O­n«ç»ò§ó§ï³]©w?
¤£¦n·N«ä¡A¤p©f¦Û¤v¥Î¤F¤@¤U¡AÁÙ¬O¤£¯à¹³¤j¤j³o¼Ë¶]°Ê¡A¦A³Â·Ð¤j¤j¡AÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD