GBKEE

¦^´_ 1# macro0029

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, E As Range, Rng As Range
   
4.     For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
   
5.         Set Rng = Nothing
   
6.         For Each E In Sh.UsedRange
   
7.             If E <> "" And E.Font.Strikethrough = True Then
   
8.                 If Rng Is Nothing Then
   
9.                     Set Rng = E
   
10.                 Else
    
11.                 Debug.Print Rng.Address
    
12.                     Set Rng = Union(Rng, E)
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         If Not Rng Is Nothing Then
    
17.             Rng.EntireRow.Copy Sheets("SHEET3").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
18.         End If
    
19.     Next
    
20. End Sub

½Æ»s¥N½X