¦p¦ó²¾°£ÃöÁä¦rªº¾ã¦C

jsc0518

¦U¦ìexcel vba ¥ý¶i,

¤§«e§Ú¦³¥Î¤U¦C»yªk¡A¥¦¥i¥H§R°£¦bAÄæ¥X²{-->³æ§O:
¥i¥H§R°£¾ã¦C
§Ú¥Ø«eªº°ÝÃD¬O¡A­YÃöÁä¦r-->³æ§O:
­Y¦³¦h«Ü¦hªºªÅ¥Õ©Î²K¥[¦r¡A¥¦³o¤@¦C´N·|§R°£¤£¨ì
¦³¦ó»Pªk¦¡¥i¥H§ä¨ì«ü©w«áÃöÁä¦r¡A´N§R°£¾ã¦C
¦A³Â·Ð¦U¦ì¡AÁÂÁÂ!



Sub Step3()
'AÄd¤U²¾°£"³æ§O:"
Dim yy
yy = "³æ§O:"
For I = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(I), yy) > 0 Then Rows(I).Delete
Next I
End Sub

jsc0518

¦^´_ 7# samwang

¦nªº¡AÁÂÁ±zµ¹¤©ªº«ü¤Þ¡A·PÁ±z

samwang

¦^´_  samwang
Dear samwang,
Test OK¡A·PÁ±zªº¼ö¤ß¸Ñ´b¡C
»P±z½Ð±Ð¡G­Y»Ý§ó§ïÃöÁä¦r¬O§_§ó§ï¤U¦C»yªk ...
jsc0518 µoªí©ó 2022-4-20 21:42

¥i¥H¬d¤@¤UExcel Math¥Îªk´Nª¾¹D¤F¡AÁÂÁÂ

jsc0518

¦^´_ 5# samwang
Dear samwang,
Test OK¡A·PÁ±zªº¼ö¤ß¸Ñ´b¡C
»P±z½Ð±Ð¡G­Y»Ý§ó§ïÃöÁä¦r¬O§_§ó§ï¤U¦C»yªk

If Not IsError(Application.Match(0, xR, 0))

¬õ¦â¦rªº³¡¤À§ï¦¨¨ä¥L¼Æ¦r©Î¬O¤å¦r¡H

samwang

¦^´_ 4# jsc0518

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim xR As Range, xU As Range
For Each xR In ActiveSheet.Range("B:B").SpecialCells(xlCellTypeConstants).Rows
    If Not IsError(Application.Match(0, xR, 0)) Then
        If xU Is Nothing Then Set xU = xR Else Set xU = Union(xR, xU)
     End If
Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub

jsc0518

¦^´_ 2# Hsieh

Dear Hsieh,
±z¦n¡I­Y»yªk§ï¬°BÄæ¦C¤U¡A·íBÄæ¤U¥u­n¬O0ªº­È³£²¾°£¾ã¦C
¥i¬O³o¼Ë§ï¡A³s50¡B60¡B70¡B.....³£·|²¾°£
§Ú¥u·Q­nµ¥©ó0¤~§R°£
­n¦p¦ó­×§ï©O¡H
Thank you.


Sub ex()
Set a = Columns("B").Find("0")
Do Until a Is Nothing
a.EntireRow.Delete
Set a = Columns("B").Find("0")
Loop
End Sub

jsc0518

¦^´_ 2# Hsieh
Hi ·PÁ±zªº¦^ÂСATEST OK
Åý§Ú¾Ç·|¤F*ªº¥Îªk
ÁÂÁ±z!

Hsieh

¦^´_ 1# jsc0518

Sub ex()
Set a = Columns("A").Find("³æ§O*")
Do Until a Is Nothing
a.EntireRow.Delete
Set a = Columns("A").Find("³æ§O*")
Loop
End Sub