ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð¦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Á ..

³Æ³f°Ó«~.rar (7.29 KB)

For Each A In ActiveSheet.UsedRange
  If A.Font.Strikethrough = True Then MsgBox A.Value
Next
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


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

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD