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

¤@­ÓÃö©óVBA¦Û°Ê§Y®Éø»sªÑ²¼¹Ïªº°ÝÃD

¦^´_ 1# twispin
¸Õ¸Õ¬Ý
  1. Sub ¬ö¿ý¬ü¤¸«ü¼Æ()
  2.     Dim x As Integer
  3.      With Sheets("¬ü¤¸«ü¼Æ") '¤£ºÞµe­±(ActiveSheet [§@¥Î¤¤ªº¤u§@ªí])¦b­þ¸Ì
  4.         x = 24 '¤º½L
  5.         While .Cells(x, 2).Value <> ""
  6.             x = x + 1
  7.         Wend
  8.         .Cells(x, 2).Value = .Cells(23, 2).Value
  9.         x = 24 '¥~½L
  10.         While .Cells(x, 3).Value <> ""
  11.             x = x + 1
  12.         Wend
  13.         .Cells(x, 3).Value = .Cells(23, 3).Value
  14.      End With
  15.     Call ¬ö¿ý¬ü¤¸«ü¼Æ³]©w
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD