麻辣家族討論版版 » Excel程式區 » 找U欄等於0的儲存格，連右邊的兩個儲存格一起刪除

返回列表下一主題上一主題發帖

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

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-15 15:13 | 只看該作者

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

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

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 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

複製代碼

DelRng-a.zip (7.28 KB)

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-15

3^#

發表於 2013-11-16 14:30 | 只看該作者

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

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2013-11-16 22:08 | 只看該作者

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

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

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

返回列表下一主題上一主題