如何实现Excel两个工作簿间对应图片的自动匹配调取

前置说明 #

你需要的自动从工作簿A调取对应动物图片、图片绑定单元格两个需求均可实现，以下是两种适用不同版本的可落地方案： #

方案一：无代码方案（仅适用于Excel 365/2021及以上版本） #

• 先处理工作簿A：将所有对应动物的图片导出到和工作簿A同级的专属文件夹，图片统一命名为对应动物名称（如金毛.jpg、布偶猫.png），在工作簿A的B列填写每个动物对应图片的完整本地路径，示例格式：C:\动物素材库\金毛.jpg
• 打开工作簿B，通过Power Query将工作簿A的动物名、图片路径两列数据同步到工作簿B的隐藏工作表，后续工作簿A更新数据后，工作簿B只要点击「数据」-「全部刷新」就能同步最新的匹配关系
• 在工作簿B需要显示图片的单元格输入公式即可自动生成对应图片：
  =IFERROR(IMAGE(XLOOKUP(当前行动物名称单元格, 同步的动物名列范围, 同步的图片路径列范围)),"暂无匹配图片")

方案二：VBA宏方案（兼容所有Excel版本） #

如果使用的是低版本Excel，没有IMAGE函数，可以通过宏实现自动匹配调取：

1. 预处理工作簿A：将所有图片的属性设置为「大小和位置随单元格而变」，每张图片的左上角对齐对应动物名称所在行的B列单元格
2. 打开工作簿B，按Alt+F11调出VBA编辑器，插入新模块，粘贴以下代码，替换代码里的路径、工作表名参数后运行即可自动完成匹配：

Sub 跨工作簿匹配动物图片()
    Dim wbSource As Workbook, wsSource As Worksheet, wsTarget As Worksheet
    Dim targetName As String, matchRow As Variant
    Dim pic As Shape
    
    ' 替换为你自己的实际配置
    Set wsTarget = ThisWorkbook.Sheets("工作簿B的工作表名")
    Set wbSource = Workbooks.Open("C:\你的文件路径\工作簿A.xlsx")
    Set wsSource = wbSource.Sheets("工作簿A的工作表名")
    
    ' 清空工作簿B现有图片
    For Each pic In wsTarget.Shapes
        If pic.Type = msoPicture Then pic.Delete
    Next
    
    ' 遍历匹配
    For i = 2 To wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
        targetName = wsTarget.Cells(i, 1).Value ' 假设工作簿B动物名在A列，从第2行开始
        matchRow = Application.Match(targetName, wsSource.Columns(1), 0) ' 假设工作簿A动物名在A列
        If Not IsError(matchRow) Then
            ' 复制对应图片
            wsSource.Shapes(matchRow - 1).Copy
            wsTarget.Paste Destination:=wsTarget.Cells(i, 2) ' 图片粘贴到B列对应行
            ' 绑定到单元格
            With Selection
                .Top = wsTarget.Cells(i, 2).Top
                .Left = wsTarget.Cells(i, 2).Left
                .Width = wsTarget.Cells(i, 2).Width
                .Height = wsTarget.Cells(i, 2).Height
                .Placement = xlMoveAndSize ' 大小位置随单元格同步变化
            End With
        End If
    Next
    wbSource.Close SaveChanges:=False
End Sub

• 你也可以设置工作簿打开时自动运行该宏，实现打开即自动同步最新图片

图片绑定指定单元格通用设置 #

无论用哪种方案生成的图片，都可以手动设置绑定到单元格：

• 右键点击图片，选择「大小和属性」
• 在属性面板的「属性」分类下，选择「大小和位置随单元格而变」
• 设置完成后，调整单元格行高列宽、插入删除行时，图片都会跟随对应单元格同步变动

参考示意图 #

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