excel怎么把公式生成数值。自动转换为数值不带公式的

Answer 1

没法自动，只能手动。
先把公式生成值的所在单元格复制，然后在原位置上（其他位置也可以）点击右键选择“选择性粘贴”选择“数值”确定即可。

另一种方法是将公式隐藏。

追问

我只的是用vba。你说的这个我会

追答

你又没说明要vab。。。。

range("A1") = range("A1")

唉，拿你没办法，说问题不说明白了。

打开vba编辑器，在Microsoft Excel 对象里选择你要编辑的sheet，比如sheet2

复制下面代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Cells(Target.Row, Target.Column).Value = Sheet2.Cells(Target.Row, Target.Column).Value
End Sub

按您所说的“自动”。

Answer 2

我帮朋友写过这么一个类似的VBA
可以把加减乘除之类的公式（引用数值必须在这张sheet里）自动转换成数值

我不知道你需要输出什么，所以把原本的代码给你，你可以自行加以修改

Private Sub CommandButton1_Click()
Dim fml As String
Dim pa(20) As String
Dim lg As Integer
Dim out As String
Dim aski As Integer
Dim Tsp As Boolean
Dim td As Boolean
Dim I, J, K As Integer
Dim cll As Range
Dim mf As String
Dim sz As Range

On Error GoTo 444

mf = Dir(ThisWorkbook.Path & "\output.txt")
If mf <> "" Then
Kill ThisWorkbook.Path & "\output.txt"
End If
Open ThisWorkbook.Path & "\output.txt" For Output As #1

For Each cll In Application.InputBox("Choose the zone you want", Type:=8)
fml = cll.FormulaLocal
' Debug.Print fml
lg = Len(fml)
Tsp = False
td = False

out = ""

For I = 1 To 20
pa(I) = ""
Next I
K = 1

For I = 1 To lg
aski = Asc(Mid(fml, I, 1))

If aski >= 65 And aski <= 90 Then
Tsp = Not Tsp
pa(K) = pa(K) & Mid(fml, I, 1)
GoTo 100
End If

If Tsp And aski >= 48 And aski <= 57 Then
pa(K) = pa(K) & Mid(fml, I, 1)
If I = lg Then
out = out & Range(pa(K))
' GoTo 300
End If
ElseIf Tsp And (aski <= 48 Or aski >= 57) Then
Tsp = Not Tsp
out = out & Range(pa(K))
K = K + 1
td = Not td
End If

100 If Not Tsp Then
out = out & Mid(fml, I, 1)
ElseIf Tsp And td Then
' out = out & Range(pa(K - 1))
td = Not td
End If

Next I

'300 Debug.Print out

Print #1, cll.Address(rowabsolute:=False, ColumnAbsolute:=False) & " " & out
Next
GoTo 999
444 MsgBox ("Something is wrong")
999 MsgBox ("over, (^o^)/~~~")
Close #1
End Sub

Answer 3

在框里输入=在输入公式，在点对号确定，就计算出数值了