Excel VBA根据B列数据自动填充A列失效问题求助

错误原因 #

你的VBA代码核心问题是Select Case语法使用错误：
当你写Select Case pName时，Case分支应该直接匹配目标字符串值，而不是写成pName = "Alpha"这种布尔表达式。原代码中每个Case分支实际是在判断True/False是否等于字符串类型的pName，永远匹配失败，所以所有情况都走到Case Else返回!!。

修正后的代码 #

方案1：修正语法并保留遍历逻辑 #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target.Row < 2 Then Exit Sub ' 仅处理B2及以下单元格
    
    Application.EnableEvents = False
    On Error GoTo Finalize
    
    Dim LastRow As Long, i As Long, pName As String
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 2 To LastRow
        pName = Range("B" & i).Value
        Select Case pName
            Case "Alpha", "Bravo" ' 直接写匹配的字符串值
                Range("A" & i).Value = "P1"
            Case "Charlie"
                Range("A" & i).Value = "P2"
            Case Else
                Range("A" & i).Value = "!!"
        End Select
    Next i
    
Finalize:
    Application.EnableEvents = True
End Sub

方案2：优化为仅处理修改的单元格（更高效） #

原代码每次修改B列单元格都会遍历所有行，效率偏低。可以只处理触发事件的Target单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理B2及以下的单个单元格修改（批量修改可按需扩展）
    If Target.Column <> 2 Or Target.Row < 2 Or Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo Finalize
    
    Dim pName As String
    pName = Target.Value
    
    Select Case pName
        Case "Alpha", "Bravo"
            Target.Offset(0, -1).Value = "P1" ' Offset(0,-1)直接定位到左侧A列单元格
        Case "Charlie"
            Target.Offset(0, -1).Value = "P2"
        Case Else
            Target.Offset(0, -1).Value = "!!"
    End Select
    
Finalize:
    Application.EnableEvents = True
End Sub

验证结果 #

输入Alpha, Charlie, Bravo, Xenon到B2-B5时，A列会对应返回P1, P2, P1, !!，完全符合预期。

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