Hsieh

¦¹¨Ò¬O¦b¤j½d³ò¤ºª½±µ·j´M¡A¨Ã¤£¥²«ü©w¶}©l·j´M¦ì¸m
©Ò¥H¡A¨Ã¤£¼vÅT·j´Mµ²ªG¡A¦]¬°C¥Ã»·¬O§ä¨ì¬Û¦P­Èªº²Ä¤@­Ó¦ì¸m

Hsieh

¦^´_ 7# b9208


    With ActiveSheet.UsedRange.Offset(1, 0)
¥u»Ý§ï³o¦æ¡AActiveSheet§ï¦¨§A­n§R°£ªº¤u§@ªí¦W§Y¥i
½Ð½T¹êÁA¸Ñµ{¦¡½X¡A½×¾Â¥i¤£¬O¥N¤u¼t

Hsieh

¦^´_ 9# b9208

1. Sub deldata_1()
   
2. Dim c As Range
   
3.   With Sheets("WW").UsedRange.Offset(1, 0)
   
4.       Set c = .Find(Sheets("WW").Cells(1, 1), Lookat:=xlWhole)
   
5.       If Not c Is Nothing Then
   
6.           Do
   
7.               c.Resize(5, 15).Delete (2)
   
8.               Set c = .Find(Sheets("WW").Cells(1, 1), Lookat:=xlWhole)
   
9.            Loop Until c Is Nothing
   
10.       Else
    
11.             MsgBox "¨S¦³§ä¨ì"
    
12.       End If
    
13.    End With
    
14. End Sub

½Æ»s¥N½X