需要使用VBA处理，Alt+F11打开VBE，插入模块，复制下面的代码。
代码说明：将选中区域中的公式空白单元格内容清除
Sub blankcell()
Dim rng As Range
For Each rng In Selection
If Not WorksheetFunction.IsNonText(rng) Then
rng.ClearContents
End If
Next
End Sub
需要使用VBA处理，Alt+F11打开VBE，插入模块，复制下面的代码。
代码说明：将选中区域中的公式空白单元格内容清除
Sub blankcell()
Dim rng As Range
For Each rng In Selection
If Not WorksheetFunction.IsNonText(rng) Then
rng.ClearContents
End If
Next
End Sub
