刪除特定儲存格

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-3-22 17:09 | 顯示全部帖子

回復 1# jim

Sub kk()
With Sheet5
A = .Range("A65536").End(xlUp).Row
For i = A To 3 Step -1
If .Cells(i, 5) = "" Or .Cells(i, 5) & .Cells(i + 1, 5) = "訂貨訂貨" Or .Cells(i, 5) & .Cells(i + 1, 5) = "訂貨" Then
.Rows(i).Delete
End If
Next
End With
End Sub

複製代碼

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-3-22 18:14 | 顯示全部帖子

回復 4# jim

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

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。