§R°£¯S©wÀx¦s®æ

jim

Book1.rar (12.48 KB)

¤U¸ü¦¸¼Æ: 12

2012-3-22 16:37

¦U¦ì¦n¦pªþ¥ó½Ð«ü¾É  ÁÂÁÂ

register313

¦^´_ 1# jim

1. Sub kk()
   
2. With Sheet5
   
3. A = .Range("A65536").End(xlUp).Row
   
4. For i = A To 3 Step -1
   
5.   If .Cells(i, 5) = "" Or .Cells(i, 5) & .Cells(i + 1, 5) = "­q³f­q³f" Or .Cells(i, 5) & .Cells(i + 1, 5) = "­q³f" Then
   
6.      .Rows(i).Delete
   
7.   End If
   
8. Next
   
9. End With
   
10. End Sub

½Æ»s¥N½X

jim

¦^´_ 2# register313
register313  thanks
¦ý¬O°õ¦æ§¹«áµo²{
·í FÀx¦s®æ¤£¬OªÅ¥Õ (§Y>0 )  ,  EÀx¦s®æµLªk§R°£ÁÙ«O¯dµÛ
­ì«h¤W¥HEÀx¦s®æªÅ¥Õ§Y¾ã¦C§R°£

jim

¦^´_ 2# register313
register313  thanks
¦ý¬O°õ¦æ§¹«áµo²{
·í FÀx¦s®æ¤£¬OªÅ¥Õ (§Y>0 )  ,  EÀx¦s®æµLªk§R°£ÁÙ«O¯dµÛ
­ì«h¤W¥HEÀx¦s®æªÅ¥Õ§Y¾ã¦C§R°£

register313

¦^´_ 4# jim

¥u­nEÄæ¬OªÅ¥Õ´N¾ã¦C§R°£,§Ú¬O³o¼Ë³]­pªº¨S¿ù

¤U¸ü (100.38 KB)

2012-3-22 18:14

jim

ª¾±x ÁÂÁ §Ú¦A¥«Àˬd¬Ý¬Ý

mark15jill

¦^´_ 1# jim


    Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+v
'
For xv = 2 To 65535
    If Range("a" & xv).Value <> "" Then
        xfg = xv
    End If
Next xv
For xy = 2 To xfg
    For xg = 2 To xy
        If Range("e" & xy).Value = "" Then
            Range("a" & xy, "g" & xy).Select
            Selection.Delete Shift:=xlUp
            
        End If
    'Rows("3:3").Select
    'Selection.Delete Shift:=xlUp
    Next xg
Next xy
End Sub


³o¥i¨ì³Ì«áµ²ªG

¤U¸ü (248.14 KB)

2012-3-26 10:26

jim

¦^´_ 7# mark15jill
¦hÁÂ
¹Á¸Õ¹B¥Î