Excel VBA如何从指定行开始遍历列并在加粗单元格上方插入行

以下是适配自定义起始遍历行的修改后代码，你可以直接调整配置项适配你的需求：

Sub Cisco_IfBold_Test()
'
' Cisco_IfBold_Test Macro
'
    ' ===== 可配置参数 直接修改下面两个值即可 =====
    Const CONFIG_START_ROW As Long = 2 ' 遍历的最低行（倒序到这一行就停止）
    Const CONFIG_CHECK_COLUMN As Variant = "A" ' 要检测的列，支持列字母或列号，比如"B"、2都可以
    ' ==========================================
    
    Dim lRow As Long
    Dim lLastRow As Long
    
    lLastRow = Cells(Rows.Count, CONFIG_CHECK_COLUMN).End(xlUp).Row
    ' 倒序遍历：从最后一行到你设定的起始行，步长-1
    For lRow = lLastRow To CONFIG_START_ROW Step -1
        If Cells(lRow, CONFIG_CHECK_COLUMN).Font.Bold = True Then
            Cells(lRow, CONFIG_CHECK_COLUMN).EntireRow.Insert
        End If
    Next lRow
End Sub

修改说明 #

• 新增了可直接调整的配置常量，不用修改核心逻辑就能适配不同场景
• 把原来代码中固定的终止行2替换为自定义的CONFIG_START_ROW，你要从第N行开始遍历，直接把这个常量的值改成N即可
• 把原来固定的检测列"A"替换为自定义的CONFIG_CHECK_COLUMN，需要检测其他列的时候直接修改该值即可
• 保留了原有倒序遍历的逻辑，不会因为插入行导致后续行号偏移、漏检测的问题

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