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

§R¦C

§R¦C

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!
          Sub ®t²§¦C§R°£()
              Dim R
              R = (ActiveCell.Row Mod 12)
              R = "C" & ActiveCell.Row - R + 1 & ":IV" & ActiveCell.Row + (12 - R)
              Range(R).Delete
              Range("A23") = ""
              End Sub¡@
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov12.rar (21.44 KB)

¦^´_ 1# myleoyes
   R = ((ActiveCell.Row - 2) Mod 12)

TOP

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!¥Ì·ÅÅo...ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD