Рет қаралды 47,261
How to automatically clear contents of a worksheet without deleting the formulas using VBA. Below is the complete VBA code:
Option Explicit
Sub removeMyConstants()
Dim myConstants As Range
Dim cel As Range
Set myConstants = Sheet1.Range("A1:F4").SpecialCells(xlCellTypeConstants)
On Error Resume Next
myConstants.ClearContents
For Each cel In Range("A1:F4")
If cel.Value = 0 Then
cel.NumberFormat = "#;#;"
End If
Next
End Sub