Excel VBA复制单元格的值以覆盖它的公式？

Question

我有一个有公式的单元格，它显示一个单词，我希望能够根据需要编辑该单元格。问题是，如果我尝试，它显示公式，我想在它旁边创建一个按钮，允许公式被它显示的单词替换。我认为这个脚本可以做到，但显然不是。

有人能告诉我哪里出错了吗？

Sub Edit_Nonconformity()

    ThisWorkbook.Sheets("Sheet2").Cells(2, 40).Value = ThisWorkbook.Sheets("Sheet2").Cells(2, 40).Value
End Sub

我想如果我复制了＆＃34; Value＆＃34;将单元格粘贴在那里，它会覆盖脚本，至少我认为它会起作用。

基本上公式是从另一张纸张拉出来的，因此它使用标准公式，我想要做的是只需按一下按钮就可以将显示所述文本的公式中的单元格更改为可编辑文本（如果要编辑）细胞。

这对任何人都有意义吗？

Answer 1

Cells(2, 3) = Cells(2, 2)设置C2中的公式结果= B2中的文本。