无需条件格式实现行高亮：部分填充变黄，全填充恢复白色

VBA代码实现 #

• 按下Alt + F11打开VBA编辑器
• 在左侧工程面板找到目标工作簿，右键选择「插入」→「模块」
• 将以下代码粘贴到模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedRow As Integer
    Dim targetRange As Range
    ' 限定生效范围为B列到E列，可根据实际需求修改
    Set targetRange = Intersect(Target, Me.Range("B:E"))
    
    If Not targetRange Is Nothing Then
        affectedRow = targetRange.Row
        ' 统计当前行B-E列的非空单元格数量
        Dim filledCount As Integer
        filledCount = Application.WorksheetFunction.CountA(Me.Range("B" & affectedRow & ":E" & affectedRow))
        
        Select Case filledCount
            Case 1 To 3 ' 半填充状态（1-3个单元格有内容）
                Me.Range("B" & affectedRow & ":E" & affectedRow).Interior.ColorIndex = 6 ' 黄色背景
            Case Else ' 全空或全填充
                Me.Range("B" & affectedRow & ":E" & affectedRow).Interior.ColorIndex = 2 ' 白色背景
        End Select
    End If
End Sub

• 关闭VBA编辑器，返回工作表测试：在B-E列输入内容时，半填充行自动变黄；全填满后恢复白色，空行保持白色

关键说明 #

• 代码绑定工作表的Change事件，仅当B-E列内容变动时触发，无额外性能损耗
• 可自行调整代码中的列范围（如把B:E改成A:F）和颜色索引（Excel内置颜色索引可按需替换）
• 保存工作簿时需选择.xlsm格式，否则宏代码会丢失

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