Sub SheetFixer()
Dim r As Range, rng As Range
On Error Resume Next
Set rng = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
If Err.Number <> 0 Then
Error.Number = 0
On Error GoTo 0
MsgBox "No formulas on sheet."
Exit Sub
End If
For Each r In rng
If r.Value = "" Then r.Clear
Next r
On Error GoTo 0
End Sub
1 回答
尝试运行这个短宏: