VBA遍历单元格

Sub test()
    Dim str
    Dim i, j
    i = 1
    j = 1
    For r = 1 To Worksheets(2).UsedRange.Rows.Count
        For c = 1 To Worksheets(2).UsedRange.Columns.Count
            str = Worksheets(2).Cells(r, c).Value
            Worksheets(3).Cells(j, 1).Value = i
            Worksheets(3).Cells(j, 2).Value = c
            Worksheets(3).Cells(j, 3).Value = str
            j = j + 1
        Next
        i = i + 1
    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 + 1
        Next
    Next
    MsgBox "已删除当前表中 " & i & " 形状"
End Sub