如何在另一工作簿查找活动单元格偏移值并返回指定单元格合并内容

实现逻辑 #

用VBA宏替代嵌套IFS的繁琐公式，通过点击按钮触发操作，仅对选中单元格执行以下逻辑：

• 以活动单元格向左偏移3列的值为关键词
• 在OTHER SHEET.xlsm的Sheet1第3列（C列）查找匹配项
• 找到匹配行后，将该行第5、6、7列（E、F、G列）内容合并，插入到当前活动单元格

操作步骤 #

1. 打开需要操作的工作簿，按下Alt+F11打开VBA编辑器
2. 右键点击左侧项目窗格中的当前工作簿名称，选择插入→模块
3. 将以下代码粘贴到模块窗口中：

Sub InsertMergedContent()
    Dim keyWord As String
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim mergedText As String
    
    ' 获取活动单元格左移3列的关键词
    keyWord = ActiveCell.Offset(0, -3).Value
    If keyWord = "" Then
        MsgBox "关键词单元格为空，请检查！", vbExclamation
        Exit Sub
    End If
    
    ' 尝试打开目标工作簿
    On Error Resume Next
    Set targetWB = Workbooks("OTHER SHEET.xlsm")
    On Error GoTo 0
    
    If targetWB Is Nothing Then
        ' 未打开时提示用户选择文件
        Dim filePath As String
        filePath = Application.GetOpenFilename("Excel工作簿 (*.xlsm), *.xlsm", , "请选择OTHER SHEET.xlsm文件")
        If filePath = "False" Then Exit Sub
        Set targetWB = Workbooks.Open(filePath)
    End If
    
    Set targetWS = targetWB.Sheets("Sheet1")
    lastRow = targetWS.Cells(Rows.Count, 3).End(xlUp).Row ' 获取C列最后一行
    
    ' 遍历C列查找匹配
    For i = 2 To lastRow ' 假设第1行是表头
        If targetWS.Cells(i, 3).Value = keyWord Then
            ' 合并E、F、G列内容，用5个空格分隔
            mergedText = targetWS.Cells(i, 5).Value & "     " & targetWS.Cells(i, 6).Value & "     " & targetWS.Cells(i, 7).Value
            ActiveCell.Value = mergedText
            Exit Sub ' 找到第一个匹配后退出，需匹配所有结果可删除此句
        End If
    Next i
    
    ' 未找到匹配的提示
    MsgBox "未找到关键词为[" & keyWord & "]的记录", vbInformation
End Sub

4. 回到Excel界面，点击开发工具选项卡→插入→选择按钮（窗体控件），在工作表合适位置绘制按钮，在弹出的对话框中选择InsertMergedContent宏，点击确定
5. 选中需要插入内容的单元格，点击该按钮即可自动执行查找合并操作

代码说明 #

• 自动检测目标工作簿是否已打开，未打开时会弹出选择窗口
• 若关键词单元格为空，会弹出提示避免错误
• 默认仅插入第一个匹配结果，需匹配所有结果可删除代码中的Exit Sub语句，改为将所有匹配内容合并
• 分隔符用了5个空格，可根据需求修改代码中的" "部分

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