Delete°ÝÃD

color790

Hi~µ{¦¡¦p¤U, ½Ð°Ý¤£ª¾¹D¬°¤°»ò°õ¦æ¹L¤@¦¸, ¤´µM·|¦³²M¤£°®²bªºª¬ªp, ¸ê®Æ¤j¬ù1~3¸Uµ§, ¬O­þ¸Ì¥X¤F°ÝÃD? ©Î¬O¥ý¶i¦³¤ñ¸û¦nªº¤èªk¥i¥H«ü¾É¤@¤U:'(
Sub jj()
m = Sheets("Temp1").Range("A1").CurrentRegion.Rows.Count
For i = 2 To m
If Sheets("Temp1").Cells(i, 14).Value = "abc" Then Rows(i).Delete Shift:=xlUp
Next
End Sub

luhpro

¦^´_ 6# color790

³oÃä´£¥X¤@ÂI : ¨ä¹ê­n±q¤W¨ì¤U¨Ì§Ç§R¦C¤]¬O¨S°ÝÃDªº,
¥u»Ý­n°t¦X Do...While ¨Ã©ó§R¦C®É¤£°µ»¼¼W¦C¸¹ªº°Ê§@§Y¥i,
¬Æ¦Ü³o¼Ëªº¤è¦¡³s¸ê®Æ¥½¦C³£¤£¥Î¹w¥ý­pºâ¬O²Ä´X¦C,
¥B§R§¹·í¤U§Y¥i³z¹L (¦C¸¹´î¤@) ±oª¾³Ñ¾l¸ê®Æµ§¼Æ.

Sub jj()
i = 2
With Sheets("Temp1")
  Do While .Cells(i, 1) <> ""
    If .Cells(i, 14) = "abc" Then
      Rows(i).Delete Shift:=xlUp
    Else
      i = i + 1
    End If
  Loop
End With
Msgbox "¸g¹L¿z¿ï, ³Ñ¾l¸ê®Æ¦@ " & i-1 & " µ§"
End Sub

color790

¦^´_ 4# owen06

Àò¯q¨}¦h, ·PÁÂ2¦ìªº¦^ÂÐ, ÁÂÁÂ~~~

GBKEE

¦^´_ 3# color790
³o°ÝÃD½×¾Â¦³°Q½×¨ì

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i
   
4.     For i = 1 To 10
   
5.         Cells(i, "a").Select   'µøµ¡½Õ¾ã¦¨¹Ï¥Ü,¬Ý¬Ý¦ì¸mÅܤÆ
   
6.         Cells(i, "a").Delete
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

¤U¸ü (96.8 KB)

2013-11-19 13:41

owen06

¦^´_ 3# color790


i=2 to m,±q¤W©¹¤U§R¡A·|¦³Àx¦s®æ¤W²¾ªº±¡§Î¡A
°²¦p(3,14)¸ò(4,14)³£¬Oabc¡A¦Ói°õ¦æ¨ì3®É¡A·|¥ý§â(3,14)§R±¼¡AµM«á­ì¥»ªº(4,14)¨ú¥N¦¨(3,14)¡A
¥i¬O¦¹®Éi¤w¸gÅܦ¨4¤F¡A¥L´N¤£·|¦A¥h§R(3,14)ªº¨º­Óabc¤F¡A´N·|µo¥Í²¨º|ªº±¡§Î¡C
©Ò¥H­n¥Î­Ë¦^¨Óªº¤è¦¡¡C

color790

¦^´_ 2# Hsieh

ÁÂÁ¦^´_, ½Ð°Ý¬°¤°»ò·|¦³³o¼Ëªº®t§O©O?

Hsieh

¦^´_ 1# color790


   For i = m To 2 step -1