如何在Excel VBA中拆分单元格多值并赋值给指定变量？

嘿，这个需求完全不用折腾查找函数，有个超顺手的方法就能搞定！VBA里的Split函数就是专门干这种按分隔符拆分字符串的活儿的，完美适配你这种分号分隔的场景。

直接给你上可运行的代码示例，你可以根据自己的实际单元格位置调整：

Sub SplitProductDetails()
    Dim cellContent As String
    Dim splitValues As Variant
    Dim ProdNum As Long
    Dim Amount As Long
    Dim Status As Long
    
    ' 替换成你实际存储值的单元格，比如Range("B5")之类的
    cellContent = Range("A1").Value
    
    ' 用分号作为分隔符，把字符串拆成数组
    splitValues = Split(cellContent, ";")
    
    ' 把数组元素转成Long类型后赋值给变量（数组下标从0开始）
    ProdNum = CLng(splitValues(0))
    Amount = CLng(splitValues(1))
    Status = CLng(splitValues(2))
    
    ' 可选：弹出窗口验证赋值结果
    MsgBox "产品编号：" & ProdNum & vbNewLine & _
           "产品数量：" & Amount & vbNewLine & _
           "产品状态：" & Status
End Sub

补充说明： #

• Split函数会自动把分号分隔的内容拆成一维数组，第一个元素对应你的产品编号，第二个是数量，第三个是状态，完全匹配你的需求。
• 用CLng转换类型是因为你的变量都是Long型，避免字符串直接赋值可能出现的类型不匹配错误。
• 如果担心单元格格式不对（比如少了一个分号、内容为空），可以加个简单的校验逻辑，防止报错：

' 在拆分后加入这段判断
If UBound(splitValues) = 2 Then ' 数组下标到2说明正好有3个元素
    ProdNum = CLng(splitValues(0))
    Amount = CLng(splitValues(1))
    Status = CLng(splitValues(2))
Else
    MsgBox "单元格内容格式不正确，请检查是否为「产品编号;数量;状态」的格式！"
End If

这个方法比用InStr逐个找分号位置再截取字符串简洁太多，代码可读性也高，绝对是最优解~

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