如何修改VBA脚本跳过空白单元格，避免「下标越界」错误？

我来帮你搞定这个问题！你的脚本在遇到空单元格时触发「下标越界」错误，原因很直接：当单元格为空时，Split(cel, " ")会返回一个仅包含空字符串的数组，这时候UBound(item_list)是0，你再去访问item_list(i-1)就等于访问下标-1，自然就报错了。

咱们可以通过两步优化来修复这个问题，同时还能处理其他边界情况（比如单元格只有单个单词的情况）：

修改后的完整代码 #

Sub splitting_items()
    Dim lrow As Long, cel As Range
    Dim i As Long, item_list As Variant
    
    ' 获取A列最后一行有数据的行号
    lrow = Range("A" & Rows.Count).End(xlUp).Row
    
    For Each cel In Range("A1:A" & lrow)
        ' 先检查单元格是否为空（含仅空格的情况），为空则跳过当前循环
        If Trim(cel.Value) <> "" Then
            item_list = Split(cel, " ")
            
            ' 确保拆分后的数组至少有2个元素，才有倒数第二部分可提取
            If UBound(item_list) >= 1 Then
                i = UBound(item_list)
                Debug.Print item_list(i - 1)
            Else
                ' 可选：处理只有单个单词的单元格，这里输出提示到立即窗口
                Debug.Print "单元格 " & cel.Address & " 仅包含一个元素，无法提取倒数第二部分"
            End If
        End If
    Next cel
End Sub

关键修改点说明 #

• 空单元格检查：用Trim(cel.Value) <> ""代替简单的cel.Value <> ""，这样能过滤掉那些只有空格的单元格，避免误判为有内容的单元格。
• 数组元素数量校验：增加UBound(item_list) >= 1的判断，因为Split返回的数组下标从0开始，只有当下标最大值≥1时，才存在倒数第二元素（下标为i-1）。如果单元格只有单个单词，这个判断能避免再次触发下标越界错误，还可以自定义提示信息。

这样修改后，你的脚本会自动跳过空单元格，同时也能处理各种边界情况，运行更稳定。

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