Excel宏将字段数据类型字符串更改为长

Question

我的函数将值返回为字符串。

Function Trimcell(cellvalue As varnant) As String
    Trimcell = Replace(CStr(cellvalue), " ", "")
End Function

我想将数据类型字符串更改为长。任何帮助。

Answer 1

更改您的功能：

Function Trimcell(cellvalue As varnant) As Long
    Trimcell = Val(Replace(CStr(cellvalue), " ", ""))
End Function

Answer 2

您有一个拼写错误 - varnant而不是变体。

比使用Replace更好的选择是使用Val从字符串中删除空白，选项卡和lineFeed字符并返回Double。它还停止在第一个非数字字符处读取字符串(。

正如您已声明cellvalue As Variant的那样，您也不需要CStr。

Function Trimcell2(cellvalue As Variant) As Long
    Trimcell = Val(cellvalue)
End Function