標題: test [打印本頁]

---

作者: RCRG    時間: 2016-11-22 17:22     標題: test

test :'(




Sub 一鍵清空()


    Range("B3:U1000").Select
    Range("B3:U1000").Activate
    Selection.FormulaR1C1 = ""
   
   
    Sheets("檢查未回溫").Select
    Range("B2").Select
   
    [B1] = ""
        

MsgBox "清除完成！"
   
   
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)