Excel技术问询：如何将每行分散列的图片归集到同一列？

VLOOKUP这类函数只针对单元格的文本/数值内容生效，Excel中的图片属于浮动对象（哪怕是嵌入型，函数也无法直接识别关联），所以用函数解决不了这个问题，下面提供两种可行方案：

方法一：VBA宏批量处理（高效适配大表格） #

1. 按Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」→「模块」，粘贴以下代码：

Sub MovePicsToSameColumn()
    Dim ws As Worksheet
    Dim pic As Shape
    Dim targetCol As Integer
    Dim lastRow As Long
    Dim i As Long
    
    ' 自定义目标列：数字对应列号（A=1，B=2...E=5，按需修改）
    targetCol = 5
    Set ws = ActiveSheet
    ' 假设A列是数据主列，用来判断表格最后一行，若不是可替换成其他列
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        For Each pic In ws.Shapes
            ' 匹配图片所在行与当前遍历行
            If pic.TopLeftCell.Row = i Then
                ' 将图片移动到目标列的对应行，对齐单元格
                pic.Top = ws.Cells(i, targetCol).Top
                pic.Left = ws.Cells(i, targetCol).Left
                ' 可选：让图片自适应单元格大小
                pic.LockAspectRatio = msoFalse
                pic.Width = ws.Cells(i, targetCol).Width
                pic.Height = ws.Cells(i, targetCol).Height
                Exit For ' 每行仅一张图，找到后跳出循环
            End If
        Next pic
    Next i
End Sub

3. 回到Excel界面，按Alt+F8，选中MovePicsToSameColumn后点击「运行」即可

方法二：手动批量调整（适合小数据量） #

1. 按Ctrl+G打开定位窗口，点击「定位条件」→选择「对象」→确定，全选所有图片
2. 右键任意图片→「大小和属性」，在「属性」栏勾选「大小和位置随单元格而变」
3. 选中单张图片后按Ctrl+X剪切，粘贴到目标列对应行；批量处理可按住Shift选中多行图片，依次剪切粘贴

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