[發問] 找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除

t8899

找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除
程序如何寫??
例如 U5, U6, U7 都等於0 ，
則刪除
U5,V5,W5
U6,V6,W6
U7,V7,W7
刪完後，下面儲存格往上移

luhpro

Shift:=xlShiftUp
請教一下，這是什意思??
t8899 發表於 2013-11-16 14:30

刪完後，下面儲存格往上移

t8899

回復  t8899
luhpro 發表於 2013-11-16 09:10

Shift:=xlShiftUp
請教一下，這是什意思??

luhpro

回復 1# t8899

1. Sub nn()
   
2.   Dim lRow&
   
3.   
   
4.   lRow = 1
   
5.   Do While Cells(lRow, 21) <> ""
   
6.     If Cells(lRow, 21) = 0 Then
   
7.       Cells(lRow, 21).Resize(, 3).Delete Shift:=xlShiftUp
   
8.     Else
   
9.       lRow = lRow + 1
   
10.     End If
    
11.   Loop
    
12. End Sub

複製代碼

DelRng-a.zip (7.28 KB)

下載次數: 3

2013-11-16 09:09