Excel跨标签匹配球队徽章：输入队名自动显示对应图片问题求助

前提准备 #

确保「Escudos」标签页的结构规范：

• A列：球队名称（需和轮次标签页C列输入的名称完全一致，不能有空格、大小写差异）
• B列：对应球队的徽章图片（每个单元格放一张）

方法一：用名称管理器实现自动更新（无需宏） #

1. 点击「公式」选项卡 → 「名称管理器」
2. 点击「新建」，设置：
   • 名称：TeamBadge
   • 引用位置（替换Round 38为你的轮次标签页名称）：

     =INDEX(Escudos!$B:$B,MATCH('Round 38'!$C1,Escudos!$A:$A,0))
     

   点击确定保存。
3. 选中轮次标签页中要显示徽章的B列单元格（比如B1），插入任意一张临时图片
4. 选中这张图片，在编辑栏输入 =TeamBadge 后按回车，图片会自动替换为对应球队的徽章
5. 调整图片大小，复制到B列其他需要的单元格即可——后续修改C列球队名，B列徽章会自动更新

方法二：用VBA宏批量插入徽章（适合大量数据） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码（记得替换代码里的Round 38为你的轮次标签页名称）：

Sub InsertTeamBadge()
    Dim targetWs As Worksheet
    Dim escudoWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim teamName As String
    Dim matchCell As Range
    
    '设置目标工作表（轮次标签页）和徽章存放工作表
    Set targetWs = ThisWorkbook.Worksheets("Round 38")
    Set escudoWs = ThisWorkbook.Worksheets("Escudos")
    
    '获取C列最后一行有数据的行号
    lastRow = targetWs.Cells(targetWs.Rows.Count, "C").End(xlUp).Row
    
    '遍历C列数据，批量插入徽章
    For i = 2 To lastRow '假设第一行是表头，从第二行开始处理
        teamName = targetWs.Cells(i, "C").Value
        If teamName <> "" Then
            '在Escudos中精确匹配球队名称
            Set matchCell = escudoWs.Columns("A").Find(What:=teamName, LookIn:=xlValues, LookAt:=xlWhole)
            If Not matchCell Is Nothing Then
                '复制对应徽章到目标单元格
                escudoWs.Cells(matchCell.Row, "B").Copy
                targetWs.Cells(i, "B").PasteSpecial Paste:=xlPasteAll
                '调整单元格和图片大小（可按需修改数值）
                targetWs.Cells(i, "B").RowHeight = 50
                targetWs.Cells(i, "B").ColumnWidth = 10
            End If
        End If
    Next i
    Application.CutCopyMode = False
End Sub

运行宏后，B列会自动插入对应球队的徽章。后续新增数据后，重新运行宏即可更新。

注意事项 #

• 球队名称必须完全匹配，包括大小写、空格，否则无法找到对应徽章
• 方法一适合少量数据且需要实时更新的场景，方法二适合批量处理已有数据

内容的提问来源于stack exchange，提问作者Raphael Arruda de Oliveira