Sub test() Dim rg As Range, shp As Shape Rem --------------------------------------------------- Rem 清除图形对象 For Each shp In ActiveSheet.Shapes shp.Delete Next Rem --------------------------------------------------- Rem 按名称插入图片 Rem 下行代码,根据A列开始循环处理 ).R