kimbal

°ÝÃD¤@: (³o­Ó¬O¥Î§R°£§a)

1. on error resume next
   
2. ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

½Æ»s¥N½X

°ÝÃD¤G:
¦phsieh¤j¤U­±©Ò»¡,¦pªG¨S¦³¼hÅ|Ãö«Y, ¥H¤U¥i§ä¥X¹B¦æ®É¬OªÅ¦ÊªºµM«á§R°£

1.     Dim r, rs
   
2.     Dim allR As Range
   
3.    
   
4.     With ActiveSheet.UsedRange
   
5.         Set r = .Find("", LookIn:=xlValues)
   
6.         Set rs = r
   
7.         If Not r Is Nothing Then
   
8.            Set allR = r
   
9.             Do
   
10.                 Set allR = Union(allR, r)
    
11.                 Set r = .FindNext(r)
    
12.             Loop While Not r.Address = rs.Address
    
13.         End If
    
14.         If Not allR Is Nothing Then
    
15.             allR.Delete Shift:=xlUp
    
16.         End If
    
17.     End With

½Æ»s¥N½X