Hsieh

¦^´_ 1# Mindyj

1. Sub ex()
   
2. Application.ScreenUpdating = False
   
3. With ¤u§@ªí1
   
4. .[B:M].Insert '´¡¤JB:MÄæ
   
5. .Range(.[B8], .[M65536]).Delete xlShiftToLeft 'B8:M8¥H¤UÀx¦s®æ§R°£
   
6. .Columns("B:M").Hidden = True 'B:MÄæÁôÂÃ
   
7. .PrintPreview '¹wÄý¦C¦L
   
8. '.PrintOut  '¦C¦L
   
9. .Columns("B:M").Hidden = False 'Åã¥ÜB:MÄæ
   
10. .Range("B1:M7").Delete xlShiftToLeft '§R°£B1:M7Àx¦s®æ
    
11. End With
    
12. Application.ScreenUpdating = True
    
13. End Sub

½Æ»s¥N½X