VBA提取单元格逗号前文本触发错误5：无效的过程调用或参数

错误5由Left函数传入非法参数触发，和单元格写入逻辑本身无关：

• 当满足If判断条件的行中，H列（第8列）单元格内容不存在英文半角逗号,时，InStr(1, Cells(r, 8), ",")的返回值为0
• 此时传给Left的截取长度参数为0 - 1 = -1，而VBA原生Left函数要求长度参数必须为≥0的非负整数，传入负数会直接抛出无效过程调用/参数错误。

在执行截取逻辑前，先判断逗号查找结果，仅当确实找到逗号时才执行逗号前内容截取；未找到逗号时可根据业务需求写入对应内容（如直接写入H列完整值、留空、抛出数据提示均可）。
修正后可直接运行的完整代码：

Sub ExtractContentBeforeComma()
    Dim r As Long, commapos As Long, m As Long
    m = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

    For r = 2 To m
        If Cells(r, 16).Value <> "0" And Cells(r, 9).Value = "" Then
            commapos = InStr(1, Cells(r, 8), ",")
            ' 校验逗号查找结果，避免传入非法长度参数
            If commapos > 0 Then
                Cells(r, 9).Value = Left(Cells(r, 8), commapos - 1)
            Else
                ' 无逗号场景的处理逻辑，可按需调整
                Cells(r, 9).Value = Cells(r, 8).Value
            End If
        End If
    Next r
End Sub

• 如果你的数据里使用的是中文全角逗号，，需要将InStr查找目标从","改为"，"，否则会因匹配不到逗号触发上述错误
• 如果业务规则要求符合条件的行H列必须存在逗号，可在commapos=0的分支中增加数据校验提示，快速定位异常行数据。

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