如何遍历Excel选定区域并识别包含图片的单元格？

当然有高效的解决方案！Excel自带的界面功能没法直接批量定位带图片的单元格，但用VBA代码就能轻松实现遍历和标记，步骤也很简单：

方法一：VBA宏批量识别（推荐） #

这是最简便的批量处理方式，只需几步就能完成：

1. 打开你的Excel文件，选中需要检查的目标区域
2. 按下 Alt + F11 打开VBA编辑器
3. 右键点击左侧的工作表名称 → 插入 → 模块
4. 将下面的代码粘贴到模块窗口中：

Sub FindCellsWithPictures()
    Dim shp As Shape
    Dim targetRange As Range
    Dim cellWithPic As Range
    
    ' 清除之前的标记（避免干扰）
    Selection.Interior.ColorIndex = xlColorIndexNone
    
    ' 遍历当前工作表所有形状（Excel图片属于Shape对象）
    For Each shp In ActiveSheet.Shapes
        Set targetRange = Selection
        ' 判断当前形状是否在选定区域内
        If Not Intersect(shp.TopLeftCell, targetRange) Is Nothing Then
            Set cellWithPic = shp.TopLeftCell
            ' 用黄色填充标记含图片的单元格，颜色可自行修改
            cellWithPic.Interior.Color = RGB(255, 255, 0)
            ' 可选：给单元格添加批注说明
            ' If cellWithPic.Comment Is Nothing Then
            '     cellWithPic.AddComment "此单元格包含图片"
            ' End If
        End If
    Next shp
    
    MsgBox "识别完成！带图片的单元格已被标记~"
End Sub

5. 按下 F5 运行这个宏，完成后你会看到选定区域内有图片的单元格被黄色填充标记出来

代码说明： #

• 代码会先清除选定区域的原有填充色，避免旧标记干扰
• 遍历工作表所有形状，判断每个图片的左上角所在单元格是否在选定区域内
• 符合条件的单元格会被标记（这里用黄色，你可以修改RGB值换成其他颜色）
• 注释掉的代码可以用来给单元格添加批注，方便查看说明

方法二：手动快速定位（适合小范围区域） #

如果你的区域不大，也可以用Excel的定位功能手动查看：

1. 选中目标区域
2. 按下 Ctrl + G 打开定位窗口，点击「定位条件」
3. 选择「对象」并确定，此时所有图片会被选中
4. 选中图片后，查看Excel顶部名称框里的单元格地址，就是该图片所在的单元格

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