- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
§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)
|