需要Excel原始碼的請評論區留言、點擊關注和轉發,然後直接私信回覆:原始碼
用Value = ""的方法對單元格進行賦值,達到清空單元格信息的效果,但和Clear的主要區別是:賦空值只是刪除內容,但其他設置不變(比如:格式、原單元格高度寬度、批註等沒變),但Clear清空整個單元格對象,相當於我們打開一個新的excel表格沒操作過一樣。具體可以看運行效果和Clear運行效果不一樣。
示例代碼:
#001 Public Sub 示例()
#002 '複製D12單元格區域數據到A1單元格
#003 Range("D12").CurrentRegion.Copy Destination:=Range("A1")
#004 Range("A1").Value = "" '清除A1單元格信息
#005 Range("A2:B5").Value = "" '清除A2:B5單元格信息
#006 Range("2:5").Value = "" '清除2:5行單元格信息
#007 MsgBox "清除完畢"
#008 End Sub
運行結果如所示:

代碼說明:
具體請看注釋。