如何用VBA实现基于A列多单元格文本批量填充B列对应值？

原代码仅支持A1单个单元格，且判断逻辑存在错误（用Val()转换文本"ok"会得到0，无法匹配）。以下是修改后的VBA代码，可支持A列所有单元格输入内容时，自动为同行B列填充对应值：

修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 设定要监控的范围：这里是A列所有单元格，可按需改为A1:A1000这类指定区间
    Dim monitorRange As Range
    Set monitorRange = Me.Range("A:A")
    
    ' 仅处理监控范围内的单个单元格修改，避免批量操作引发异常
    If Not Application.Intersect(Target, monitorRange) Is Nothing And Target.Cells.Count = 1 Then
        ' 关闭事件触发，防止赋值时重复触发Change事件造成循环
        Application.EnableEvents = False
        
        ' 根据输入内容匹配对应值，UCase可忽略大小写（可按需移除）
        Select Case UCase(Target.Value)
            Case "OK"
                Target.Offset(0, 1).Value = "66" ' 同行B列填入"66"
            ' 可添加更多匹配规则，示例：
            ' Case "YES"
            '     Target.Offset(0, 1).Value = "88"
            ' Case "NO"
            '     Target.Offset(0, 1).Value = "0"
            Case Else
                ' 输入其他内容时清空对应B列单元格，可按需改为保留原内容
                Target.Offset(0, 1).Value = ""
        End Select
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改说明 #

• 范围适配：将监控范围从单个A1改为A列，支持任意行的A列单元格
• 动态匹配同行B列：用Target.Offset(0,1)自动获取当前修改单元格的同行B列，无需硬编码B1、B2等
• 修正判断逻辑：直接比较文本内容，避免数值转换错误；添加UCase()支持大小写不敏感匹配（可移除）
• 防循环处理：通过Application.EnableEvents关闭/开启事件触发，防止赋值操作重复触发代码
• 扩展性：用Select Case可轻松添加更多输入值与对应输出值的规则

使用步骤 #

1. 打开Excel，按Alt+F11进入VBA编辑器
2. 在左侧工程窗口中双击需要应用此功能的工作表（如Sheet1）
3. 将上述代码粘贴到右侧代码窗口中
4. 返回Excel，在A列任意单元格输入"ok"（或其他设定的关键词），同行B列会自动填充对应值

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