返回列表 上一主題 發帖

請問各位大神加快 VBA 刪除為0的儲存格公式的程式寫法

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
1# 跳轉到 »
發表於 2019-12-20 21:02 | 顯示全部帖子
本帖最後由 adrian_9832 於 2019-12-20 21:10 編輯

假設 每次D那行   0 數值那行的資料  沒有中斷  而且資料都是 一直是0  而且不會  0  0  0  0 之後不是  0   再之後又是  0      

Sub test()


i = 2


Do Until Cells(i, 4) = ""

    If Cells(i, 4) = "0" Then
        Count = Count + 1
    Else
        Start = i
    End If
   
   

i = i + 1
Loop


Range("d" & Start + 1 & ":" & "d" & Count + 10).Select

Selection.ClearContents

End Sub


最後提醒一下 以上只可以在  一行 都是 0  才能用
比如以下這樣:
111
222
333
abc
123aft
2t1111
0
0
0
0
0
0
0
0
0
0
0
0
....

而不是這樣情況下用
0
0
0
1
0
1
0
1
0
1
0
1
0
0
0
1
0
1

擷取.PNG (86.44 KB)

擷取.PNG

TOP

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
2#
發表於 2019-12-20 21:22 | 顯示全部帖子
本帖最後由 adrian_9832 於 2019-12-20 21:23 編輯
  1. 方法2:
  2. Sub test2()

  4.     Columns("D:D").Select
  5.     Selection.SpecialCells(xlCellTypeFormulas, 1).Select
  6.     Selection.ClearContents
  7. End Sub
複製代碼
這可以隔資料   而且簡單 快捷

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題