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