Excel VBA技术问询：从单个单元格提取多值分配给多个变量
2026-5-21
解决Excel VBA从单元格提取多值并赋值给变量的问题
嘿，作为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