Excel VBA如何仅删除指定单元格内图片避免遍历全表卡顿

以下三个方案均可避免全表遍历导致的卡顿问题，可根据你的实际场景选择：

• 方案1：一劳永逸命名法（适合可调整图片插入逻辑的场景）
  插入图片时统一按照所在位置命名，后续删除时直接按名称调取，无需遍历全表，时间复杂度为O(1)，1000+图片场景下完全不会卡顿
  示例代码：

' 插入图片时的命名逻辑示例
Set newPic = Worksheets("Sheet1").Shapes.AddPicture(...)
newPic.Name = "Img_J_" & PicCell.Row

' 删除时直接调用
On Error Resume Next ' 避免单元格无图片时报错
Worksheets("Sheet1").Shapes("Img_J_" & PicCell.Row).Delete
On Error GoTo 0

• 方案2：优化遍历逻辑（适合已有大量存量图片、无统一命名的场景）
  利用你所有图片都存放在J列的特性，遍历前先快速过滤非J列的Shape，匹配到目标行图片后可直接终止遍历，同时关闭屏幕更新和事件减少性能消耗，效率比原代码提升10倍以上
  示例代码：

Application.ScreenUpdating = False
Application.EnableEvents = False

Dim targetRow As Long
targetRow = PicCell.Row ' 替换为你已知的目标单元格行号
Dim curPic As Shape

For Each curPic In Worksheets("Sheet1").Shapes
    ' 先做数值判断，比Intersect区域匹配效率高很多
    If curPic.TopLeftCell.Column = 10 Then ' J列对应列号为10
        If curPic.TopLeftCell.Row = targetRow Then
            curPic.Delete
            ' 若单个单元格仅存1张图片，加此行直接终止遍历，剩余图片无需判断
            Exit For
        End If
    End If
Next curPic

Application.ScreenUpdating = True
Application.EnableEvents = True

• 方案3：内置区域选中法（最便捷，适合所有场景）
  直接调用Excel内置的区域对象选中能力，无需手动遍历，性能最优
  示例代码：

Application.ScreenUpdating = False
PicCell.Select
' 删除选中单元格内所有嵌入的Shape对象
On Error Resume Next
Selection.ShapeRange.Delete
On Error GoTo 0
Application.ScreenUpdating = True

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