如何在excel中清除公式，但同时保留结果
通过vba能否实现这个功能：
把一个sheet中所有的单元格中的公式清除掉，但是同时保留原来的计算结果
问题点数：50、回复次数：4Top
1 楼xxcw（Puma）回复于 2004-09-04 22:55:16 得分 20
我现在是这样做的，将这个sheet进行复制，粘贴到另外一张sheet表上去，粘贴时只选择数值和格式。Top
2 楼shw014（）回复于 2004-09-04 23:01:18 得分 10
你用录制宏把你的操作录制下来就可以了Top
3 楼Excelsior（雙吇騎茌）回复于 2004-09-07 11:08:04 得分 10
Range("A2:A8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
假如你想操作的单无格是A列的第二行到第八行，代码就是这样的，如果是其它单元格，只需将第一行的引号内的代码改一下就行了。Top
4 楼arden1019（CSCUM）回复于 2004-09-07 17:17:51 得分 10
'delete formula keep value will do it's job like it's name
'by arden 2004-09-07
'for 5years
'it's just work in cells(1,1) u can modify it
Sub dfkv()
MsgBox Worksheets(1).Cells(1, 1).Formula
MsgBox Worksheets(1).Cells(1, 1).Value
sfor = Worksheets(1).Cells(1, 1).Formula
sval = Worksheets(1).Cells(1, 1).Value
Worksheets(1).Cells(1, 1).Formula = ""
Worksheets(1).Cells(1, 1).Value = sval
End Sub
Top
