Question

早上好，

今天我想出了通过VBA代码自动将文本转换为数字的新任务。例如'1233需要转换为1233和（1234）需要转换为-1234而不受任何人为干扰。一些建议非常有帮助。

此致 Jabeer Ali

Answer 1

使用VALUE()功能。

此外，来自here：

Sub ConvertToNumbers() 
  Cells.SpecialCells(xlCellTypeLastCell) _
    .Offset(1, 1).Copy
  Selection.PasteSpecial Paste:=xlPasteValues, _
     Operation:=xlPasteSpecialOperationAdd
  With Selection
     .VerticalAlignment = xlTop
     .WrapText = False
  End With
  Selection.EntireColumn.AutoFit
End Sub

Answer 2

误解了你的问题，道歉。

这对我有用，甚至在excel之外：

Function numConv(num As String) As Double

    If Mid(num, 1, 1) = "(" And Mid(num, (Len(num)), 1) = ")" Then
        num = Replace(num, "(", "")
        num = Replace(num, ")", "")
        numConv = val(num) * -1
    Else
        numConv = val(num)
    End If

End Function

将文本转换为数字

2 个答案: