標題: 刪除特定儲存格 [打印本頁]

---

作者: jim    時間: 2012-3-22 16:37     標題: 刪除特定儲存格

[attach]10100[/attach]
各位好如附件請指導  謝謝

---

作者: register313    時間: 2012-3-22 17:09

回復 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    時間: 2012-3-22 17:59

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

---

作者: jim    時間: 2012-3-22 18:01

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

---

作者: register313    時間: 2012-3-22 18:14

回復 4# jim

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

---

作者: jim    時間: 2012-3-22 18:53

知悉 謝謝 我再市檢查看看

---

作者: mark15jill    時間: 2012-3-26 10:26

回復 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


這可到最後結果

[attach]10150[/attach]

---

作者: jim    時間: 2012-3-26 11:20

回復 7# mark15jill
多謝
嘗試運用

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)