Excel VBA按另一列内容加粗文本时遇"Invalid qualifier"错误的解决

错误原因 #

出现"Invalid qualifier"错误的核心原因是Value1是字符串变量，并非Excel单元格对象，字符串没有.Cells.Characters这类属性方法。除此之外代码还有其他语法和逻辑问题：

• 计算最后一行的代码错误：.Cells(.Rows.Count, "I4")写法违规，列参数应使用列标（如"I"）或列号，不能用单元格地址
• With块内的Range("I" & i)未加.前缀，会默认引用当前活动工作表，而非指定的"Output"表
• 嵌套循环逻辑冗余：无需遍历所有Lead行去处理每个Investor行，应逐行对应处理同一行的Lead和Investor列内容

修正后的代码 #

Sub BoldInv()
    Dim LR As Long, i As Long
    Dim leadName As String
    Dim targetCell As Range

    With Worksheets("Output")
        ' 获取有效数据最后一行（以Investor列为准，默认Lead列行数与之匹配）
        LR = .Cells(.Rows.Count, "I").End(xlUp).Row
        
        For i = 1 To LR
            Set targetCell = .Range("I" & i)
            leadName = .Range("L" & i).Value
            
            ' 校验Lead名称非空，且Investor列开头内容与Lead名称匹配
            If leadName <> "" And Left(targetCell.Value, Len(leadName)) = leadName Then
                targetCell.Characters(start:=1, Length:=Len(leadName)).Font.Bold = True
            End If
        Next i
    End With
End Sub

关键修改说明 #

• 新增targetCell变量直接引用单元格对象，合法调用.Characters方法设置字体加粗
• 修正最后一行计算逻辑，确保获取正确的有效数据行数
• 移除冗余嵌套循环，改为逐行对应处理同一行的Lead和Investor内容
• 增加匹配校验，避免Lead名称为空或不匹配时执行无效操作

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