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

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

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

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

高中生 Rank: 3 Rank: 3

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

1^# 跳轉到 »

發表於 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: 3 Rank: 3

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

2^#

發表於 2013-11-16 22:08 | 顯示全部帖子

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

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

靜思自在 : 人生最大的成就是從失敗中站起來。

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