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

¦p¦ó¦Û°Ê§P©w©ó­ì¸ê®Æ¤G¦C«á´¡¤J¤@ªÅ¥Õ¦C???

¦p¦ó¦Û°Ê§P©w©ó­ì¸ê®Æ¤G¦C«á´¡¤J¤@ªÅ¥Õ¦C???

¦p¦ó¦b­ì¸ê®Æ¥H¥¨¶°³]©w¦Û°Ê©ó¤G¦C«á´¡¤J¤@ªÅ¥Õ¦C¡Aªþ¥ó­ì¸ê®Æ¤Î§Æ±æÅܧó«áªº¸ê®Æ¡A½Ð¦U°ª¤â«ü±Ð¡AÁÂÁÂ^^

Book10.rar (1.44 KB)

  1. Sub yy()
  2. Set c = Rows(3)
  3. For i = 5 To [c65536].End(3).Row Step 2
  4. Set c = Union(c, Rows(i))
  5. Next
  6. c.Insert
  7. End Sub
½Æ»s¥N½X

TOP

·PÁÂoobirdª©¥D½ç±Ð¡AÁÂÁ¡D¡D¥¨¶°«Ü¤è«K¤S¦n¥Î^^

TOP

oobirdª©¥D¡A½Ð°Ý¦pªG¦³¼ÐÃD¦C¤£ºâ¡A¤]´N¬O¤@¼Ë¬O2¦C«á¤J¤@¦CªÅ¥Õ¦C¡A²Ä¤@ªÅ¥Õ¦Cªº©ó²Ä¥|¦C¦ì¸m¡A½Ð°Ý¥¨¶°¦p¦ó­×§ï©O¡A·Ð½Ð¸Ñ´b¡AÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD