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

[µo°Ý] §R°£¾ã¦C¦³¸ê®ÆµL©³¦â

[µo°Ý] §R°£¾ã¦C¦³¸ê®ÆµL©³¦â

Dear all,
¦¹¸ê®Æ¥HAÄæ¦C¬°¥D¡A·íAÄæ¦C¤U©³¦â¦³ÃC¦â®É¡A¸Ó¦C«O¯d¡C
¨ä¾l¦³¸ê®Æ¦ýµL©³¦â¡A"¾ã¦C§R°£"¡C
ÁٽФj®aÀ°¦£
¥Ü·N¹Ï¦p¤U

­ì©l¸ê®Æ
­ì©l¸ê®Æ.jpg
2022-3-22 20:13



·Q­nªºª¬ªp
·Q­nªºª¬ªp.jpg
2022-3-22 20:14


§R°£¦³¸ê®ÆµL©³¦âªº¦C.rar (7.53 KB)
Just do it.

¦^´_ 1# jsc0518

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim xR As Range, R%, Clr
Application.ScreenUpdating = False
R = 1
With Sheets(1)
    If .AutoFilterMode Then .[a1].AutoFilter
    For Each xR In .Range(.[a1], .Cells(.Rows.Count, 1).End(3))
        Clr = xR.DisplayFormat.Interior.ColorIndex
        If Clr <> -4142 Then
            xR.Resize(, 1).Copy Sheets(2).Cells(R, 1)
            R = R + 1
        End If
    Next
End With
Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 2# samwang
Dear samwang,
±z¦n¡A§Ú·Q­n¦b"­ì©l¸ê®Æ"¤u§@ªí¤Uª½±µ§R°£µL©³¦â(¦³¸ê®Æ)ªº¦C(¾ã¦C)
¦P¤@¤u§@¤W°õ¦æ¡A°õ¦æµ²ªG¤£»Ý¦b½Æ»s¨ì¥t¤@¤u§@ªí¤W¡C
·PÁ±z¡I:)

Noname.jpg
2022-3-23 20:37
   
Noname2.jpg
2022-3-23 20:37
Just do it.

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-3-24 07:51 ½s¿è
¦^´_  samwang
Dear samwang,
±z¦n¡A§Ú·Q­n¦b"­ì©l¸ê®Æ"¤u§@ªí¤Uª½±µ§R°£µL©³¦â(¦³¸ê®Æ)ªº¦C(¾ã¦C)
¦P¤@ ...
jsc0518 µoªí©ó 2022-3-23 20:38


½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test2()
Dim xR As Range, xU As Range, Clr
Application.ScreenUpdating = False
With Sheets(1)
    If .AutoFilterMode Then .[a1].AutoFilter
    For Each xR In .Range(.[a1], .Cells(.Rows.Count, 1).End(3))
        Clr = xR.DisplayFormat.Interior.ColorIndex
        If Not Clr <> -4142 Then
            If xU Is Nothing Then Set xU = xR Else Set xU = Union(xR, xU)
        End If
    Next
End With
If Not xU Is Nothing Then xU.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 4# samwang

Dear samwang,
ÁÂÁ§A¥i¥H¥Î¼Ú¡C
¥t¥~½Ð±Ð¤@¤U¡A­Y§Úªº¤u§@ªí¬°"¤u§@ªí2"
¬O¤£¬O Sheets(1) ---> §ï¦¨ Sheets(2)
Just do it.

TOP

¦^´_  samwang

Dear samwang,
ÁÂÁ§A¥i¥H¥Î¼Ú¡C
¥t¥~½Ð±Ð¤@¤U¡A­Y§Úªº¤u§@ªí¬°"¤u§@ªí2"
¬O¤£¬O She ...
jsc0518 µoªí©ó 2022-3-24 22:08


¦pªþ¥ó»¡©ú¡AÁÂÁÂ
1.JPG

TOP

¦^´_ 6# samwang

Dear samwang,
·PÁ±zªº¼ö¤ß±Ð¾É¡A·P®¦·P®¦¡I
Just do it.

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD