VBA中Split函数运行时错误'9'问题排查求助

这个运行时错误'9'（下标越界）的根源很明确：你的代码执行顺序出了问题，而且Split的分隔符选择也不够严谨。让我一步步给你拆解：

错误原因分析 #

你在ComboBox1_Change事件里，先执行了Op1 = Split(operatore, "<")(0)和Op2 = Split(operatore, ">")(1)这两行代码，之后才判断If ComboBox1.Value = "SELEZIONA OPERATORI" Then Exit Sub。

问题就出在这里：当ComboBox1的值是"SELEZIONA OPERATORI"时（比如初始化时调用cbReset之后，或者用户手动选择这个选项时），这个字符串里根本没有>符号。这时候Split(operatore, ">")返回的数组只有1个元素（索引为0），你试图访问索引1的元素，自然就触发了下标越界错误。

而且，用单独的<和>作为分隔符也不够可靠——比如你的选项字符串是CHIAV<-->MACC，用<分割会得到CHIAV和-->MACC，虽然取索引0没问题，但用>分割得到CHIAV<--和MACC，逻辑上没问题，但如果字符串格式有变化（比如多了一个>），就容易出问题。

修复方案 #

1. 调整代码执行顺序，优先检查默认选项 #

把判断默认值的代码移到事件过程的最开头，确保在执行任何Split操作之前就退出：

Private Sub ComboBox1_Change()
    Dim operatore As String
    Dim Op1 As String
    Dim Op2 As String
    Dim trovato As Integer
    Dim rng As Range
    Set rng = Selection

    ' 先检查是否是默认选项，直接退出
    If ComboBox1.Value = "SELEZIONA OPERATORI" Then Exit Sub

    operatore = ActiveSheet.OLEObjects("ComboBox1").Object
    ' 优化：用<-->作为统一分隔符，更准确
    Op1 = Split(operatore, "<-->")(0)
    Op2 = Split(operatore, "<-->")(1)
    Cells(1, 2) = Op1
    Cells(2, 2) = Op2
    trovato = 0

    If rng Is Nothing Then
        MsgBox "Non hai selezionato nessun range di celle!"
        Exit Sub
    End If

    ' 后续代码保持不变...
    For Each cell In rng
        If (trovato = 2) Then Exit For
        ElseIf StrComp(cell.Value, Op1) = 0 Then trovato = trovato + 1
    Next cell
    ' ...剩余代码
End Sub

2. 优化Split的分隔符 #

用你的选项字符串里的完整分隔符<-->来分割，这样可以一次性提取出Op1和Op2，比分别用<和>分割更可靠，也避免了不必要的字符串处理。

3. 额外的健壮性优化 #

为了避免其他意外情况（比如ComboBox的值不是预期的三个选项），可以在Split之后添加一个检查，确保数组的元素数量符合预期：

Dim splitParts As Variant
splitParts = Split(operatore, "<-->")
If UBound(splitParts) <> 1 Then
    MsgBox "Valore ComboBox non valido!"
    cbReset
    Exit Sub
End If
Op1 = splitParts(0)
Op2 = splitParts(1)

这样即使ComboBox里出现了格式不正确的选项，也能提前报错并重置，不会触发运行时错误。

验证修复效果 #

调整代码顺序后，当ComboBox1的值是"SELEZIONA OPERATORI"时，会直接退出事件过程，不会执行到Split的代码，也就不会触发错误。同时用<-->作为分隔符，提取Op1和Op2的逻辑更清晰可靠。

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