如何用vba清除公示

在Excel中使用VBA（Visual Basic for Applications）清除公式，你可以通过设置单元格的公式属性为空来实现。以下是一个简单的VBA宏示例，该宏会清除活动单元格中的公式：

```vba

Sub ClearFormula()

' 检查活动单元格是否有公式

If Not IsEmpty(Cells(Rows.Count, Columns.Count).End(xlUp).Formula) Then

' 清除活动单元格的公式

ActiveCell.Formula = ""

End If

End Sub

```

要使用这个宏，请按照以下步骤操作：

1. 打开Excel，然后按 `Alt + F11` 打开VBA编辑器。

2. 在VBA编辑器中，右键点击工作簿名称下的任意位置，选择“插入” > “模块”。

3. 在新模块的代码窗口中复制并粘贴上面的代码。

4. 关闭VBA编辑器，回到Excel。

5. 按下 `Alt + F8`，选择 `ClearFormula` 宏，然后点击“运行”。

如果你想要清除整个工作表或工作簿中的所有公式，你可以修改宏来遍历所有单元格：

```vba

Sub ClearAllFormulas()

Dim ws As Worksheet

Dim cell As Range

' 遍历所有工作表

For Each ws In ThisWorkbook.Worksheets

' 遍历所有单元格

For Each cell In ws.UsedRange

' 如果单元格有公式，则清除

If Not IsEmpty(cell.Formula) Then

cell.Formula = ""

End If

Next cell

Next ws

End Sub

```

使用这个宏的方法与上面相同。当你运行它时，它将清除当前工作簿中所有工作表的所有单元格公式。