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

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

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

¦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
Just do it.

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

TOP

¦^´_ 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
Just do it.

TOP

¦^´_ 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
Just do it.

TOP

¦^´_ 7# samwang

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

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD