《查看excel中的多余对象及删除》由会员分享,可在线阅读,更多相关《查看excel中的多余对象及删除(1页珍藏版)》请在金锄头文库上搜索。
Sub countshapes() Dim n As Double Dim ws As Worksheet Dim content As String For Each ws In Worksheets content = content & 工作表 & ws.Name & 有 & n & 个对象 & vbCrLf Next MsgBox contentEnd Sub