Excel VBA下拉联动赋值问题求助：A2选员工ID后B2/C2无法正确赋值

嘿，你的问题根源出在If语句的语法错误上，这也是很多VBA新手容易踩的坑！

你在每个If判断后面用And来同时执行两个赋值操作，这完全不符合VBA的语法规则。And是逻辑运算符，只能用来组合条件判断（比如If a>5 And b<10 Then ...），根本不能用来串联执行多个赋值语句。这种错误写法会让VBA把后面的赋值当成逻辑表达式去计算，最终导致B2被赋值为逻辑值转换后的0，而C2的赋值代码根本不会被执行——这就是为什么你看到B2总是0，C2空着的原因。

先给你修正最基础的版本 #

把每个If里的And去掉，换成多行执行（或者用冒号分隔在一行），这样就能正常赋值了：

Sub ind_naming()
 Dim in_ws As Worksheet
 Set in_ws = ActiveWorkbook.Sheets("INDIVIDUAL_REPORT")
 in_ws.Range("A5:E100").Delete Shift:=xlUp
 in_ws.Range("A5:E100").Interior.Color = RGB(224, 245, 250)
 in_ws.Range("F1").Value = in_ws.Range("A2").Value
 
 If in_ws.Range("A2").Value = "BI08298" Then 
     in_ws.Range("B2").Value = "113"
     in_ws.Range("C2").Value = "John Smith"
 End If
 If in_ws.Range("A2").Value = "GB31446" Then 
     in_ws.Range("B2").Value = "170"
     in_ws.Range("C2").Value = "John Bob"
 End If
 If in_ws.Range("A2").Value = "ZB40049" Then 
     in_ws.Range("B2").Value = "158"
     in_ws.Range("C2").Value = "Gary Doe"
 End If
 If in_ws.Range("A2").Value = "KF14006" Then 
     in_ws.Range("B2").Value = "121"
     in_ws.Range("C2").Value = "Mary Jane"
 End If
 If in_ws.Range("A2").Value = "JT99623" Then 
     in_ws.Range("B2").Value = "167"
     in_ws.Range("C2").Value = "Nate Tailor"
 End If
 If in_ws.Range("A2").Value = "FO07386" Then 
     in_ws.Range("B2").Value = "168"
     in_ws.Range("C2").Value = "Jacob Grant"
 End If
End Sub

更高效的优化方案：用Select Case替代多个If #

上面的代码虽然能跑，但多个独立的If会逐个检查所有条件，哪怕已经匹配到了正确的员工ID，还是会继续检查后面的，效率不高。换成Select Case会更清晰，而且匹配到一个条件后就会跳出判断：

Sub ind_naming()
 Dim in_ws As Worksheet
 Set in_ws = ActiveWorkbook.Sheets("INDIVIDUAL_REPORT")
 in_ws.Range("A5:E100").Delete Shift:=xlUp
 in_ws.Range("A5:E100").Interior.Color = RGB(224, 245, 250)
 in_ws.Range("F1").Value = in_ws.Range("A2").Value
 
 Select Case in_ws.Range("A2").Value
     Case "BI08298"
         in_ws.Range("B2").Value = "113"
         in_ws.Range("C2").Value = "John Smith"
     Case "GB31446"
         in_ws.Range("B2").Value = "170"
         in_ws.Range("C2").Value = "John Bob"
     Case "ZB40049"
         in_ws.Range("B2").Value = "158"
         in_ws.Range("C2").Value = "Gary Doe"
     Case "KF14006"
         in_ws.Range("B2").Value = "121"
         in_ws.Range("C2").Value = "Mary Jane"
     Case "JT99623"
         in_ws.Range("B2").Value = "167"
         in_ws.Range("C2").Value = "Nate Tailor"
     Case "FO07386"
         in_ws.Range("B2").Value = "168"
         in_ws.Range("C2").Value = "Jacob Grant"
     Case Else
         ' 如果没有匹配到任何员工ID，可以在这里设置默认提示
         in_ws.Range("B2").Value = ""
         in_ws.Range("C2").Value = "未找到对应员工信息"
 End Select
End Sub

额外注意事项 #

1. 确保A2单元格的格式是文本格式：如果员工ID带前导零（比如BI08298里的0），如果单元格是数字格式会丢失前导零，导致匹配失败。
2. 可以添加Trim函数去除空格：如果用户选择时不小心输入了前后空格，会导致匹配错误，把in_ws.Range("A2").Value改成Trim(in_ws.Range("A2").Value)就能避免这个问题。

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