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

Question

我有一个函数，它返回值为字符串。

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

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

Answer 1

将您的功能更改为：

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

Answer 2

您有拼写错误 - varnant而不是Variant。

比使用Replace更好的选择是使用Val从字符串中删除空格，制表符和换行符并返回Double。除了它识别为小数分隔符的句点（。）之外，它还会停止读取第一个非数字字符处的字符串。

正如您已声明cellvalue As Variant，您也不应该CStr。

Function Trimcell2(cellvalue As Variant) As Long

    Trimcell = Val(cellvalue)
End Function