Excel VBA需求：指定列单元格末行文本加粗及代码报错排查

嗨，我来帮你搞定这个问题～先说说你代码里触发数据类型不匹配错误13的核心原因：

• 你循环的范围是ActiveSheet.Range("A3:L100")，但r是单个单元格对象，ActiveSheet.Cells(r, 12)这种写法不对——Cells的第一个参数需要是行号，不是Range对象，得改成ActiveSheet.Cells(r.Row, 12)才能正确获取对应行的L列单元格。
• 另外你实际要处理的是E列，没必要遍历A到L所有列，直接循环E3:E100更高效，也避免处理无关单元格。

下面是修正并优化后的代码，完美匹配你的需求：

Sub BoldLastLine_Fixed()
    Dim targetCell As Range
    Dim lastLineStartPos As Long
    Dim lColumnCell As Range
    
    ' 仅遍历需要处理的E列单元格
    For Each targetCell In ActiveSheet.Range("E3:E100")
        ' 获取对应行的L列单元格
        Set lColumnCell = ActiveSheet.Cells(targetCell.Row, 12)
        
        ' 检查L列单元格去除首尾空格后是否不为空
        If Len(Trim(lColumnCell.Value)) <> 0 Then
            ' 查找单元格内最后一个换行符的位置
            lastLineStartPos = InStrRev(targetCell.Value, vbLf)
            
            If lastLineStartPos > 0 Then
                ' 对换行符之后的最后一行文本设置格式
                With targetCell.Characters(lastLineStartPos + 1, Len(targetCell.Value) - lastLineStartPos).Font
                    .Bold = True
                    .Size = 16
                End With
            Else
                ' 如果单元格只有一行文本，直接整行加粗改字号
                targetCell.Font.Bold = True
                targetCell.Font.Size = 16
            End If
        End If
    Next targetCell
    
    MsgBox "Updates Completed."
End Sub

代码说明： #

• 精准锁定E列目标单元格，避免无效遍历，提升运行效率
• 修复了数据类型不匹配的问题，正确关联对应行的L列判断条件
• 增加了边界处理：如果单元格没有换行符（仅一行文本），也会按要求整行设置格式
• 严格遵循你的需求：仅当对应行L列不为空时，才处理E列单元格的最后一行文本

测试一下这个代码，应该就能正常运行啦～

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