刪除

Question

我想要一個按鈕，裏面寫一個窗體以清除細胞如果是小於1％VBA代碼

Range("G9:G28").Select 
Selection.ClearContents if range("g9:g28) < 0 

這可能是非常錯誤的

Answer 1

dim c as range 

for each c in activesheet.range("G9:G28") 
    if c.value < 0 then c.clearcontents 
next