Excel VBA需求：检查行内单元格是否全为“-”并弹窗着色

原代码的问题很明确：只检查L列的单个单元格是否为“-”，然后单独给这个单元格上色，完全没实现你要的「整行横向范围所有单元格都是“-”才着色整行+弹窗」的需求。

下面是修正后的代码：

Sub CheckAndColorRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim currentRow As Long
    Dim rowRange As Range
    Dim cell As Range
    Dim allDash As Boolean
    
    ' 直接指定目标工作表，不用Activate，更稳定
    Set ws = ThisWorkbook.Sheets("Cumulated BOM")
    
    ' 获取L列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 从第2行开始遍历到L列最后一行
    For currentRow = 2 To lastRow
        ' 获取当前行最后一列的列号，确保覆盖所有有效单元格
        lastCol = ws.Cells(currentRow, ws.Columns.Count).End(xlToLeft).Column
        ' 定义当前行需要检查的范围：从L列到该行最后一列
        Set rowRange = ws.Range(ws.Cells(currentRow, "L"), ws.Cells(currentRow, lastCol))
        
        ' 先假设整行都是"-"
        allDash = True
        
        ' 逐个检查当前行的单元格
        For Each cell In rowRange
            If cell.Value <> "-" Then
                ' 只要有一个不是"-"，就标记为False并停止检查该行
                allDash = False
                Exit For
            End If
        Next cell
        
        ' 如果整行确实全是"-"
        If allDash Then
            ' 给整行的目标范围上色
            rowRange.Interior.Color = RGB(255, 87, 87)
            ' 弹出提示框告知行号
            MsgBox "第" & currentRow & "行所有单元格均为""-"",已标记着色。"
        End If
    Next currentRow
End Sub

关键改进说明 #

• 抛弃Activate方法，直接绑定工作表对象，避免切换工作表带来的错误
• 自动获取每行的最后一列，确保检查范围覆盖该行所有有内容的单元格
• 新增布尔标记allDash，通过遍历验证整行是否全为“-”
• 满足条件时给整行范围着色，同时弹出带行号的提示框
• 修正了原代码只检查L列单个单元格的逻辑错误

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