开发工具→查看代码 把下面代码粘贴进去,点击执行 Sub mysub() For Each s In Sheet1.OLEObjects s.TopLeftCell = s.Object.Value s.Delete Next End Sub