½Ð±Ð¦p¦ó¤£¥Î FOR°j°é¡A§Ö³tªº§R±¼¯S©wªº¦C©M¦hÓ¯S©wªº¦C¡H
¥Ø«e¬O¨Ï¥Î FOR °j°é¡A¦ý®É¶¡¤Óªø¡A¦³§ó¦n¡B§óÁo©úªº¤èªk¶Ü¡H
Intersect ¤èªk ¥i¥H¿ëªº¨ìªº¶Ü¡H¡H¡H
Sub ¬Ý«C¤ì()
AAA = Range("B65536").End(xlUp).Row
For x = 2 To AAA
d = Cells(x, 2)
If Cells(x, 2) <> 1 Then '
Rows(x).Delete
x = x - 1
AAA = Range("B65536").End(xlUp).Row
If x >= AAA Then Exit For
End If
Next x
End Sub
================================================
Sub ¬Ýªü¤[¬zµ¥¤¤H()
AAA = Range("B65536").End(xlUp).Row
For x = 2 To AAA
d = Cells(x, 2)
If Cells(x, 2) = 1 Or Cells(x, 2) = 3 Or Cells(x, 2) = 5 Or Cells(x, 2) = 7 Or Cells(x, 2) = 9 Then '
Rows(x).Delete
x = x - 1
AAA = Range("B65536").End(xlUp).Row
If x >= AAA Then Exit For
End If
Next x
End Sub
ÁÂÁ«ü±Ð¡A·P®¦~~~¦U¦ì«e½ú~~¡I :'(
°Ý°ÝÃD.rar (8.34 KB)
|