刪除特定儲存格

jim

Book1.rar (12.48 KB)

下載次數: 12

2012-3-22 16:37

各位好如附件請指導  謝謝

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) = "訂貨訂貨" Or .Cells(i, 5) & .Cells(i + 1, 5) = "訂貨" Then
   
6.      .Rows(i).Delete
   
7.   End If
   
8. Next
   
9. End With
   
10. End Sub

複製代碼

jim

回復 2# register313
register313  thanks
但是執行完後發現
當 F儲存格不是空白 (即>0 )  ,  E儲存格無法刪除還保留著
原則上以E儲存格空白即整列刪除

jim

回復 2# register313
register313  thanks
但是執行完後發現
當 F儲存格不是空白 (即>0 )  ,  E儲存格無法刪除還保留著
原則上以E儲存格空白即整列刪除

register313

回復 4# jim

只要E欄是空白就整列刪除,我是這樣設計的沒錯

下載 (100.38 KB)

2012-3-22 18:14

jim

知悉 謝謝 我再市檢查看看

mark15jill

回復 1# jim


    Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: 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


這可到最後結果

下載 (248.14 KB)

2012-3-26 10:26

jim

回復 7# mark15jill
多謝
嘗試運用