標題:
[發問]
找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除
[打印本頁]
作者:
t8899
時間:
2013-11-15 15:13
標題:
找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除
找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除
程序如何寫??
例如 U5, U6, U7 都等於0 ，
則刪除
U5,V5,W5
U6,V6,W6
U7,V7,W7
刪完後，下面儲存格往上移
作者:
luhpro
時間:
2013-11-16 09:10
回復
1#
t8899
Sub nn()
Dim lRow&
lRow = 1
Do While Cells(lRow, 21) <> ""
If Cells(lRow, 21) = 0 Then
Cells(lRow, 21).Resize(, 3).Delete Shift:=xlShiftUp
Else
lRow = lRow + 1
End If
Loop
End Sub
複製代碼
[attach]16724[/attach]
作者:
t8899
時間:
2013-11-16 14:30
回復 t8899
luhpro 發表於 2013-11-16 09:10
Shift:=xlShiftUp
請教一下，這是什意思??
作者:
luhpro
時間:
2013-11-16 22:08
Shift:=xlShiftUp
請教一下，這是什意思??
t8899 發表於 2013-11-16 14:30
刪完後，下面儲存格往上移
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
