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