返回列表 上一主題 發帖

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

t8899

帖子
747 
主題
244 
精華
0 
積分
1004 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-6-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-15 15:13 | 只看該作者

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

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

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2013-11-16 09:10 | 只看該作者
回復 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)

TOP

t8899

帖子
747 
主題
244 
精華
0 
積分
1004 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-6-16 
3#
發表於 2013-11-16 14:30 | 只看該作者
回復  t8899
luhpro 發表於 2013-11-16 09:10


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

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
4#
發表於 2013-11-16 22:08 | 只看該作者
Shift:=xlShiftUp
請教一下，這是什意思??
t8899 發表於 2013-11-16 14:30

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

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題