§R¦C

myleoyes

¦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!!

myleoyes

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

GBKEE

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