如何修改VBA命令按钮宏，按状态根据指定列值高亮对应行？

以下是调整后的宏代码，实现你要求的三种状态逻辑：

Private Sub CommandButton1_Click()
    Dim Nam As Variant
    Static c
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    
    ' 绑定当前工作表，避免操作错误
    Set ws = ActiveSheet
    ' 获取J列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    
    Nam = Array("A", "B", "C", vbYellow, vbCyan, vbWhite)
    ' 重置状态计数器
    If c = 3 Or c = "" Then c = 0
    
    ' 更新按钮的标题和背景色
    CommandButton1.Caption = Nam(c)
    CommandButton1.BackColor = Nam(c + 3)
    
    ' 先清除所有A:U列的背景色，确保状态切换无残留
    ws.Range("A1:U" & lastRow).Interior.ColorIndex = xlNone
    
    Select Case Nam(c)
        Case "A"
            ' 高亮J列值为"y"的整行（不区分大小写）
            For Each cell In ws.Range("J1:J" & lastRow)
                If UCase(cell.Value) = "Y" Then
                    ws.Range("A" & cell.Row & ":U" & cell.Row).Interior.ColorIndex = 6 ' 黄色
                End If
            Next cell
        Case "B"
            ' 高亮J列值为"n"的整行（不区分大小写）
            For Each cell In ws.Range("J1:J" & lastRow)
                If UCase(cell.Value) = "N" Then
                    ws.Range("A" & cell.Row & ":U" & cell.Row).Interior.ColorIndex = 8 ' 蓝色
                End If
            Next cell
        Case "C"
            ' 恢复J列值为"y"或"n"的行背景色
            For Each cell In ws.Range("J1:J" & lastRow)
                If UCase(cell.Value) = "Y" Or UCase(cell.Value) = "N" Then
                    ws.Range("A" & cell.Row & ":U" & cell.Row).Interior.ColorIndex = xlNone
                End If
            Next cell
    End Select
    
    ' 切换到下一个状态
    c = c + 1
End Sub

关键改动说明： #

• 新增lastRow变量：自动获取J列最后一行数据的行号，避免硬编码1000行，适配实际数据量
• 遍历J列单元格：不再直接设置大范围单元格颜色，而是精准定位符合条件的行
• 不区分大小写判断：用UCase()统一转换为大写后判断，避免因大小写输入不一致导致的漏判（不需要的话可直接改为cell.Value = "y"）
• 状态切换前置清除：每次切换状态前先清除A:U列的背景色，确保不同状态的高亮不会叠加残留

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