Excel中实现SKU匹配图片的Vlookup式自动化：求VBA代码

核心功能 #

• 在指定列输入SKU时，自动从Master工作表抓取对应名称的图片并插入到目标单元格
• SKU无效（无对应图片）时，自动清除目标单元格的现有图片
• 支持实时触发匹配逻辑，适配单个或批量SKU输入场景

VBA代码实现 #

将以下代码粘贴到**目标工作表（如报价/库存报表工作表）**的代码模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 常量定义，根据实际表格结构修改
    Const SKU_COLUMN As String = "A" ' SKU所在列
    Const IMAGE_TARGET_COLUMN As String = "B" ' 图片插入目标列
    Const MASTER_SHEET_NAME As String = "Master" ' Master工作表名称
    
    Dim masterSheet As Worksheet
    Dim targetCell As Range
    Dim skuValue As String
    Dim masterImage As Shape
    Dim targetShape As Shape
    
    ' 仅处理SKU列的单元格变化
    If Target.Column <> Range(SKU_COLUMN & 1).Column Then Exit Sub
    
    Set masterSheet = ThisWorkbook.Worksheets(MASTER_SHEET_NAME)
    
    ' 遍历所有触发变化的单元格（支持批量粘贴）
    For Each Target In Target.Cells
        Set targetCell = Me.Range(IMAGE_TARGET_COLUMN & Target.Row)
        
        ' 清除当前单元格已有的图片
        For Each targetShape In Me.Shapes
            If targetShape.TopLeftCell.Address = targetCell.Address Then
                targetShape.Delete
            End If
        Next targetShape
        
        skuValue = Trim(Target.Value)
        If skuValue = "" Then GoTo NextCell ' 空SKU跳过
        
        ' 在Master表中查找对应SKU名称的图片
        On Error Resume Next
        Set masterImage = masterSheet.Shapes(skuValue)
        On Error GoTo 0
        
        If Not masterImage Is Nothing Then
            ' 复制图片到目标单元格并调整大小
            masterImage.Copy
            Me.Paste targetCell
            With Me.Shapes(Me.Shapes.Count)
                .Top = targetCell.Top
                .Left = targetCell.Left
                .LockAspectRatio = msoTrue
                .Width = targetCell.Width ' 按单元格宽度等比例缩放
            End With
        End If
NextCell:
    Next Target
End Sub

自定义调整说明 #

1. 常量适配：根据你的表格布局，修改SKU_COLUMN、IMAGE_TARGET_COLUMN、MASTER_SHEET_NAME三个常量的值
2. 图片匹配规则：代码通过图片的名称与SKU匹配，需确保Master表中图片的名称与对应SKU完全一致
3. 缩放逻辑：默认按目标单元格宽度等比例缩放图片，可修改.Width或.Height的赋值逻辑调整显示效果
4. 批量处理：代码已支持批量粘贴SKU，无需额外修改即可批量生成对应图片

使用步骤 #

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」中找到目标工作表，双击打开其代码窗口
3. 粘贴上述代码后，保存文件（需保存为.xlsm格式以启用宏功能）
4. 返回Excel界面，在SKU列输入或粘贴SKU，对应图片会自动插入到目标列单元格中

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