GBKEE

¦^´_ 1# vic

1. Sub ²M°£()
   
2.     Beep
   
3.     If MsgBox("¡°½T©w­n²M°£¡e¸ê®Æ¹Ïªí°Ï¡fªº°O¿ý¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
   
4.     Call ¦@¥Î¨Ï¥Î
   
5.     With Sht1.Rows("19:65536")
   
6.         On Error Resume Next     'µ{¦¡¤W¦³¿ù»~,Ä~Äò°õ¦æ¤U¤@¦æªºµ{¦¡µ{¦¡½X
   
7.         'SpecialCells(¯S®íÀx¦s®æ),xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
   
8.         '¨S¦³«ü©wªºSpecialCells,·|¦³µ{¦¡¤Wªº¿ù»~
   
9.         .SpecialCells(xlCellTypeConstants) = ""
   
10.         On Error GoTo 0    '¤£³B²zµ{¦¡¤Wªº¿ù»~
    
11.     End With
    
12.     If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
    
13.     Beep
    
14. End Sub

½Æ»s¥N½X