Excel VBA需求：E2变更时提取匹配B列值的A列内容至H2

实现思路 #

• 绑定工作表变更事件，仅在E2单元格内容改变时触发逻辑，避免无关操作消耗资源
• 遍历B列所有数据行，筛选出与E2当前值一致的记录，提取对应A列内容
• 将筛选到的A列内容用分隔符（比如换行、逗号）拼接成一段文本
• 把拼接好的文本写入H2；若E2为空或无匹配项，自动清空H2

关键函数与代码示例 #

1. 打开VBA编辑器（按Alt+F11），找到目标工作表，右键插入工作表模块（不是标准模块）
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应E2单元格的变更
    If Not Intersect(Target, Me.Range("E2")) Is Nothing Then
        Dim matchVal As Variant
        Dim lastRow As Long
        Dim i As Long
        Dim outputText As String
        
        matchVal = Me.Range("E2").Value
        outputText = ""
        ' 获取B列最后一个有数据的行号
        lastRow = Me.Cells(Me.Rows.Count, "B").End(xlUp).Row
        
        ' 遍历B列匹配目标值
        For i = 1 To lastRow
            If Me.Cells(i, "B").Value = matchVal Then
                ' 用换行分隔结果，可替换为", "等其他分隔符
                If outputText <> "" Then outputText = outputText & vbNewLine
                outputText = outputText & Me.Cells(i, "A").Value
            End If
        Next i
        
        ' 将结果写入H2
        Me.Range("H2").Value = outputText
    End If
End Sub

核心函数说明 #

• Worksheet_Change：工作表自带的变更事件，单元格内容修改时自动触发
• Intersect：判断修改的单元格是否为E2，精准控制触发条件
• Cells(Row, Column)：定位指定行列的单元格，用于遍历和提取数据
• End(xlUp)：从列的最底部向上查找最后一个非空单元格，确定数据有效范围
• vbNewLine：系统默认换行符，用于分隔多个匹配结果，可按需替换

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