这个问题太常见了——ClearContents确实只会清除单元格里的文本、数值和公式，完全碰不到图片这类"形状对象"。要解决导入新数据时图片重叠的问题，你只需要在导入前专门遍历并删除目标区域内的图片就行，我给你两种实用的VBA方案：

方案1：精准删除指定区域内的所有图片 #

这个方法会遍历工作表里的所有形状，只删除那些位于目标区域内的图片，不会误删其他形状（比如文本框、图表）。

Sub DeleteOnlyPicsInTargetRange()
    Dim targetRange As Range
    Dim shp As Shape
    
    ' 第一步：设置你要清除图片的目标区域（改成你实际需要的范围）
    Set targetRange = ThisWorkbook.ActiveSheet.Range("A1:D20")
    
    ' 遍历工作表中的所有形状
    For Each shp In targetRange.Parent.Shapes
        ' 条件1：判断是否是图片类型；条件2：判断图片是否在目标区域内
        If shp.Type = msoPicture And Not Intersect(shp.TopLeftCell, targetRange) Is Nothing Then
            shp.Delete
        End If
    Next shp
End Sub

关键细节解释： #

• shp.Type = msoPicture：确保只删除图片，不会误删其他形状（如果不需要这个限制，删掉这个条件即可）
• Intersect(shp.TopLeftCell, targetRange)：判断图片的左上角单元格是否落在目标区域内，以此确定图片属于该区域

方案2：快速删除区域内所有形状（适合纯图片区域） #

如果你确定目标区域里只有图片，没有其他需要保留的形状，可以用更简洁的方式直接删除区域内的所有形状：

Sub DeleteAllShapesInRange()
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.ActiveSheet.Range("A1:D20")
    
    ' 直接删除目标区域关联的所有形状
    targetRange.Parent.Shapes.SelectAll
    Selection.Delete
End Sub

⚠️ 注意：这个方法会删除工作表里所有形状，如果你只想删指定区域的，还是用方案1更稳妥。

如何整合到你的导入宏里？ #

只需要在你现有导入代码的最开头调用上面的Sub即可，比如：

Sub ImportNewData()
    ' 先清除目标区域的旧图片
    DeleteOnlyPicsInTargetRange
    
    ' 下面是你原来的导入数据代码
    ' 比如：Workbooks.Open("你的文件路径").Sheets(1).Range("A1:Z100").Copy ThisWorkbook.ActiveSheet.Range("A1")
    ' ... 你的导入逻辑 ...
End Sub

动态调整目标区域（可选） #

如果你的数据范围不是固定的（比如每次导入的行数不同），可以用动态方式获取目标区域，比如基于A列最后一行数据来确定范围：

Sub DeletePicsInDynamicRange()
    Dim lastRow As Long
    Dim targetRange As Range
    Dim shp As Shape
    
    ' 获取A列最后一行有数据的行号
    lastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    ' 设置动态目标区域（比如A1到D列最后一行）
    Set targetRange = ThisWorkbook.ActiveSheet.Range("A1:D" & lastRow)
    
    For Each shp In targetRange.Parent.Shapes
        If shp.Type = msoPicture And Not Intersect(shp.TopLeftCell, targetRange) Is Nothing Then
            shp.Delete
        End If
    Next shp
End Sub

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