VBA遍历单元格

Sub test()
    Dim str
    Dim i, j
    i =
    j =
    For r =  To Worksheets().UsedRange.Rows.Count
        For c =  To Worksheets().UsedRange.Columns.Count
            str = Worksheets().Cells(r, c).Value
            Worksheets().Cells(j, ).Value = i
            Worksheets().Cells(j, ).Value = c
            Worksheets().Cells(j, ).Value = str
            j = j +
        Next
        i = i +
    Next
End Sub

删除形状

Sub test()
    Dim sheet As Worksheet
    Dim s As Shape
    Dim i As Integer
    For Each sheet In ActiveWorkbook.Sheets
        For Each s In sheet.Shapes
            s.Delete
            i = i +
        Next
    Next
    MsgBox "已删除当前表中 " & i & " 形状"
End Sub