如何在 vba 中将字符串转换为双精度（带有示例）

您可以使用 VBA 中的CDbl函数将文本字符串转换为双精度数据类型。

以下是在实践中使用此功能的常见方法：

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

仅当字符串是数字时，此特定宏才会将范围A2:A11中的每个字符串转换为双精度数据类型。

否则，字符串将被转换为空值。

以下示例展示了如何在实践中使用此语法。

示例：在 VBA 中将字符串转换为 Double

假设 Excel 中有以下一列值，当前格式为文本字符串：

假设我们只想将每个字符串转换为双精度数据类型（仅当该字符串是数字时）并将其显示在 B 列中。

我们可以创建以下宏来执行此操作：

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，只有 A 列中的数字文本字符串才会转换为 B 列中的双精度数据类型。

否则，文本字符串将简单地转换为空值。

注意：您可以在此处找到 VBA CDbl函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中将字符串转换为int
如何在VBA中将字符串转换为long