GBKEE

ÁÙ¦³¤èªk¥i¸Õ

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Range, Rng As Range
   
4.     With ActiveSheet.UsedRange
   
5.         .Columns("b:c").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
   
6.         For Each R In .Rows
   
7.             If R.Height = 0 Then
   
8.                 If Rng Is Nothing Then
   
9.                     Set Rng = R
   
10.                 Else
    
11.                     Set Rng = Union(Rng, R)
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     Application.DisplayAlerts = False
    
17.     If Not Rng Is Nothing Then Rng.Delete
    
18.     Application.DisplayAlerts = True
    
19. End Sub
    
20. Sub Ex1()
    
21.     Dim Sh As Worksheet, wb As Workbook
    
22.     Set Sh = ActiveSheet
    
23.     Sh.Copy
    
24.     Set wb = ActiveWorkbook
    
25.     With wb.Sheets(1)
    
26.         .UsedRange.Columns("b:c").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    
27.         Sh.UsedRange.Clear
    
28.         .UsedRange.Copy Sh.Range("A1")
    
29.         .Parent.Close False
    
30.     End With
    
31. End Sub

½Æ»s¥N½X