2017-07-12 10 views

答えて

2

を削除しています:

Option Explicit 

Sub ClearCellsNotButton() 

    With Sheets("Sheet1").UsedRange 
     .ClearFormats 
     .ClearContents 
     .ClearComments 
     .ClearHyperlinks 
     .ClearOutline 
     .ClearNotes 
    End With 

End Sub 
+0

はあなたに感謝します! Works great – dgard

0
Sheets("Sheet1").Cells.ClearContents 
+0

'ClearContents'は書式設定を除いて' Range'の値だけを削除します。 – kulapo

関連する問題