VBA行着色功能在23行后失效问题排查求助

核心故障原因 #

代码中动态列号引用错误是导致15行后功能失效的关键：
你在取上一行颜色时使用了Rows(Counter - 1).Cells(1, Counter - 1)，第二个参数是随Counter递增的列号。当Counter超过表格实际列数时，会指向表格外的空白单元格（默认填充色为白色），后续行错误地继承白色，导致仅含文本的行才会触发颜色切换逻辑。

其他问题点 #

1. 变量声明不规范：VBA中多变量声明需逐个指定类型，否则除最后一个外均为Variant类型，可能引发计算异常。
2. 列范围处理受限：Chr(No_Of_Cols + 64)仅支持1-26列，列数超过26时会失效。
3. Last_Delete逻辑混乱：原累加逻辑无法正确追踪最近的非Delete行，导致空行颜色继承错误。

修正后的代码 #

Private Sub CommandButton1_Click()
    ' 修正变量声明：逐个指定Long类型
    Dim Counter As Long, No_Of_Rows As Long, LastValidRow As Long, No_Of_Cols As Long
    Dim targetRange As Range
    
    No_Of_Rows = Cells(Rows.Count, 1).End(xlUp).Row
    No_Of_Cols = Cells(2, Columns.Count).End(xlToLeft).Column
    
    Counter = 7
    ' 初始化：记录最近的有效行（非Delete/非空）
    LastValidRow = Counter - 1
    
    Do While Counter <= No_Of_Rows
        ' 直接选中当前行的有效列范围，无需转换列字母
        Set targetRange = Rows(Counter).Resize(1, No_Of_Cols)
        
        Select Case True
            Case Cells(Counter, 1).Value = "Delete"
                targetRange.Interior.Color = RGB(153, 51, 0)
                ' Delete行不更新有效行记录
            Case Trim(Cells(Counter, 1).Value) = "" Or IsEmpty(Cells(Counter, 1))
                ' 空行继承最近有效行的颜色
                targetRange.Interior.Color = Cells(LastValidRow, 1).Interior.Color
            Case Else
                ' 非空非Delete行，交替颜色
                If Cells(LastValidRow, 1).Interior.Color = RGB(255, 255, 255) Then
                    targetRange.Interior.Color = RGB(221, 217, 196)
                Else
                    targetRange.Interior.Color = RGB(255, 255, 255)
                End If
                ' 更新有效行记录为当前行
                LastValidRow = Counter
        End Select
        
        Counter = Counter + 1
    Loop
End Sub

关键修改说明 #

• 替换错误的单元格引用：改用Cells(LastValidRow, 1).Interior.Color取固定第一列的颜色，避免越界。
• 优化变量声明：明确所有数值变量为Long类型。
• 列范围处理：使用Resize(1, No_Of_Cols)直接选中有效列，支持任意列数。
• 重构LastValidRow逻辑：记录最近的非Delete/非空行，确保空行和后续行能正确继承颜色。

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