すべての内容を削除する必要がある大きなシートがあります。VBAなしで単純にクリアしようとすると、応答しないモードになります。次のようなマクロを使用する場合:
Sub ClearContents ()
Application.Calculation = XlManual
Application.ScreenUpdating = False
Sheets("Zeroes").Cells.ClearContents
Application.ScreenUpdating = True
End Sub
また、応答しません。これを行う最も簡単な方法は何ですか?
.Cellsの範囲は使用されているものに限定されないため、コードは1,048,576行と16,384列のコンテンツ(合計17,179,869,184セル)をクリアします。それにはしばらく時間がかかります。代わりにUsedRangeをクリアしてください。
Sheets("Zeros").UsedRange.ClearContents
または、シートを削除して再度追加することもできます。
Application.DisplayAlerts = False
Sheets("Zeros").Delete
Application.DisplayAlerts = True
Dim sheet As Worksheet
Set sheet = Sheets.Add
sheet.Name = "Zeros"
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加