在excel的visual basic for application中如何编写上边这段代码呢

可以按照以下步骤在 Excel 的 Visual Basic 编辑器中编写此代码：

1. 打开 Excel 文件并按下 Alt + F11 键打开 Visual Basic 编辑器。

2. 在左侧的“项目资源管理器”窗格中右键单击“这台电脑”并选择“插入模块”。

3. 在新模块中，复制粘贴以下代码：

Sub ConvertFormulasToText()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        cell.Value = cell.Formula
        cell.NumberFormat = "@"
    Next cell
End Sub

4. 按下 F5 键或单击“运行”菜单中的“运行子过程”来运行代码。

这个代码将当前活动的工作表中所有使用过的单元格的公式转化为文本格式，并将其值设置为公式本身。然后，将单元格的格式设置为文本格式，以确保公式不会再次计算。

如果需要将代码应用于特定的工作表，请将“ActiveSheet”更改为目标工作表的名称。例如，要将代码应用于名为“Sheet1”的工作表，请将代码中的“ActiveSheet”更改为“Sheet1”：

Sub ConvertFormulasToText()
    Dim cell As Range
    For Each cell In Sheets("Sheet1").UsedRange
        cell.Value = cell.Formula
        cell.NumberFormat = "@"
    Next cell
End Sub

同样地，如果需要将代码应用于不同的 Excel 文件，请修改代码中的文件路径和工作表名称以适应目标文件。