VBA中的循环代码的使用

Sub 填充单元格()
Dim i As Integer
For i = 1 To 10
    Cells(i,1)= i
Next i
End Sub

Sub 填充单元格2()
Dim i As Integer
For i = 1 To 10
    Range("A" & i)= i
Next i
End Sub

Sub 填充单元格3()
Dim col as integer
Set col = Range("A1:A10")
For Each cell In col
    cell.Value = cell.Row()
Next cell
End Sub

Sub 循环工作表()
Dim i As Integer
For i = 1 To Worksheets.Count '用worksheets.count获取工作表的数量
    Worksheets(i).Range("A1") = Worksheets(i).Name
Next i
End Sub

Sub 循环工作表2()
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Range("A1") = sht.Name
Next sht
End Sub

Sub 循环工作簿()
For Each wb In Workbooks
    For Each sht In wb.Worksheets
        sht.Range("A1") = wb.Name
    Next sht
Next wb
End Sub

Sub 循环工作簿()
Dim i, m As Integer
For i = 1 To Workbooks.Count
    For m = 1 To Worksheets.Count
        Worksheets(m).Range("A1") = Worksheets(m).Nam
    Next m
Next i
End Sub