嘿，作为VBA新手遇到这种字符串拆分的需求很正常，我来帮你一步步实现这个功能，顺便修正你代码里的小语法问题：

核心思路 #

首先我们需要先把单元格里的括号去掉，再用Split函数按冒号:把字符串拆分成数组，最后把数组里的元素分别赋值给你的变量就行，还要注意类型转换（比如把字符串转成数值类型）。

完整修正后的代码 #

Public Sub DeviceInfo(Optional ByVal rng As Range = Nothing)
    ' 先检查传入的单元格是否为空，如果没传就默认用选中的单元格
    If rng Is Nothing Then Set rng = Selection
    
    Dim cellContent As String
    cellContent = rng.Cells(1).Value
    
    ' 检查单元格内容不为空，并且符合(值1:值2:值3)的格式
    If Len(cellContent) > 0 Then
        ' 第一步：去掉前后的括号
        cellContent = Replace(Replace(cellContent, "(", ""), ")", "")
        
        ' 第二步：按冒号分割字符串，得到数组
        Dim valueArray As Variant
        valueArray = Split(cellContent, ":")
        
        ' 第三步：检查分割后的数组长度是否为3，避免出错
        If UBound(valueArray) = 2 Then
            ' 赋值给变量，这里根据需要转换类型（比如Double/Integer）
            Dim var1 As Double, var2 As Double, var3 As Integer
            var1 = CDbl(valueArray(0))
            var2 = CDbl(valueArray(1))
            var3 = CInt(valueArray(2))
            
            ' 这里可以加测试代码，验证变量是否正确赋值
            MsgBox "变量1：" & var1 & vbCrLf & "变量2：" & var2 & vbCrLf & "变量3：" & var3
        Else
            MsgBox "单元格内容格式不正确，请确保是(值1:值2:值3)的格式！"
        End If
    End If
End Sub

代码说明 #

• 首先修正了你原代码的语法错误：比如Public后面要加Sub，If语句的括号配对问题。
• 增加了默认值处理：如果调用时没传单元格参数，就用当前选中的单元格。
• 括号处理：用Replace函数把前后的(和)去掉，也可以用Mid(cellContent, 2, Len(cellContent)-2)来实现，效果一样。
• Split函数：把字符串按指定分隔符拆分成数组，数组下标从0开始，所以第一个值是valueArray(0)，以此类推。
• 类型转换：用CDbl转成双精度浮点数，CInt转成整数，你可以根据实际需求调整类型（比如CLng转长整数）。
• 错误预防：增加了数组长度检查，避免单元格格式不对导致的运行错误。

额外注意事项 #

• 如果单元格里的内容可能有多余的空格，比如( 0.1 : 0.2 : 10 )，可以先加一行cellContent = Trim(cellContent)，再处理括号，或者在分割后对每个数组元素用Trim去空格。
• 如果需要处理更多值，只需要调整数组长度检查和变量数量就行。

内容的提问来源于stack exchange，提问作者Binga