1、下面方法步骤是处理不同表。首先打开上例文件，如下图。
2、鼠标移到当前工作表标签栏“Sheet2”表，右键，弹出快捷菜单，如下图。
3、在快捷菜单找到【查看代码】并单击，打开VBA（宏）编辑界面，如下图。
4、在左边代码框中复制下面代码到该框中，如下图。Private Sub Worksheet_Change(ByV锾攒揉敫al Target As Range) '2020-6-8 21:53:59 Dim r As Long, cp As Shape, i as long,k As Long If Target.Column = 1 Then r = Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Row k = 0 For i = 2 To r If Target.Value = Sheets("sheet3").Range("A" & i).Value Then For Each cp In ActiveSheet.Shapes If cp.TopLeftCell.Address = Target.Offset(0, 1).Address Then cp.Delete Exit For End If Next cp Rows(Target.Offset(0, 1).Row).RowHeight = Sheets("sheet3").Range("B" & i).RowHeight Columns(Target.Offset(0, 1).Column).ColumnWidth = Sheets("sheet3").Range("B" & i).ColumnWidth Sheets("sheet3").Range("B" & i).Copy Target.Offset(0, 1) k = 1 End If Next If k = 0 Then For Each cp In ActiveSheet.Shapes If cp.TopLeftCell.Address = Target.Offset(0, 1).Address Then cp.Delete Exit For End If Next cp End If End IfEnd Sub
5、以上步骤操作过程如下动画图。
6、回到工作表窗口，在A2如下单位元格输入编号时，B列显示对应图片，运行结果情况如下。
