[µo°Ý] ¦³Ãö§R°£½u¤å¦r·h²¾½Ð±Ð

macro0029

½Ð±Ð¦U¦ì¤j¤j
½Ð°Ý¦p¦ó±NSheet1,Sheet2¤º¦³§R°£½uªºÀx¦s®æ¡A½Æ»s¦ÜSheet3
¦]¬°¦³ª¦¤F¤@¤U¤å³¹¡A³£¬O¦³Ãö§R°£¤å¦r¡A¨S¦³²¾°Ê¤å¦rªº
©ÎªÌ§i¶D§Ú¦pªG§PÂ_§R°£½u§Ú¥i¥H¦b¦Û¤v¬ã¨s ·PÁ ..

macro0029

¦^´_ 3# GBKEE


    ·PÁÂG¤jª©¥D¡A¦¨¥\¸Ñ¨M§Úªº°ÝÃD
    ·|§ó§V¤O¦V¦U¦ì¾Ç²ß ÁÂÁÂ~

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

Hsieh

For Each A In ActiveSheet.UsedRange
  If A.Font.Strikethrough = True Then MsgBox A.Value
Next