返回列表 上一主題 發帖

test

test

test :'(




Sub 一鍵清空()


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

MsgBox "清除完成!"
   
   
End Sub

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題