VBA条件赋值代码异常排查：Color列全部返回Green问题求助

核心问题分析 #

你的代码存在两个关键错误，导致所有行最终都显示"Green"：

• 赋值范围错误：每次匹配水果时，你用rng.Offset(0,1).Formula修改的是整个C列的目标区域，而非当前循环对应的单行。比如第一个循环匹配到Mango时，所有C列都会被设为Green；后续循环到Apple时会把所有C列改成Pink，直到最后一个循环再次匹配到Mango，又把所有C列改回Green，最终结果全为Green。
• 判断属性误用：vl.Formula用于获取单元格的公式内容，而你的单元格里是纯文本水果名称，应该用vl.Value（或直接写vl）来获取单元格的实际值。
• 额外冗余：变量vl先被赋值为整列B:B，之后又在For Each循环中被重新定义为rng里的单个单元格，属于无效冗余定义，容易造成逻辑混淆。

修复后的代码 #

Sub warna()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim vl As Range

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    ' 定义B列的目标数据范围（从B2到最后一行有数据的行）
    Set rng = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)

    ' 遍历每个水果单元格
    For Each vl In rng
        Select Case vl.Value
            ' 只修改当前单元格右侧的C列单元格
            Case "Mango": vl.Offset(0, 1).Value = "Green"
            Case "Apple": vl.Offset(0, 1).Value = "Pink"
            Case "Tangerine": vl.Offset(0, 1).Value = "Orange"
            Case "Cherry": vl.Offset(0, 1).Value = "Red"
            ' 可选：处理不在列表中的水果
            Case Else: vl.Offset(0, 1).Value = "Unknown"
        End Select
    Next vl
End Sub

关键修改说明 #

1. 移除了冗余的Set vl = ws.Range("B:B")语句，消除变量混淆。
2. 将Select Case vl.Formula改为Select Case vl.Value，正确获取单元格的文本值。
3. 将赋值对象从rng.Offset(0,1)改为vl.Offset(0,1)，确保只修改当前循环行对应的C列单元格。
4. 可选添加了Case Else分支，处理Durian这类不在列表中的水果，避免单元格留白。

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