UC知道VBA中for each...next的用法说明
来源：百度知道 编辑：UC知道 时间：2024/06/05 06:55:43
Sub test7()
'激活工作表
Worksheets("Sheet1").Activate
Dim i As Integer
i = 1
For Each C In Range("A22:I30")
C.Value = i
i = i + 1
Next C
End Sub
==================================
这个是99乘法表。谁能详细的解释一下for each中的过程，即它是怎么生成九九乘法表的？
本人比较菜，请尽量详细一点！
'激活工作表
Worksheets("Sheet1").Activate
Dim i As Integer
i = 1
For Each C In Range("A22:I30")
C.Value = i
i = i + 1
Next C
End Sub
==================================
这个是99乘法表。谁能详细的解释一下for each中的过程，即它是怎么生成九九乘法表的？
本人比较菜，请尽量详细一点！
其实这个问题很简单，就是把C的值写入到指定区域（A22:I30）中——A到I共9列，22到30共9行，C的值由I得来，每次加1，于是就会出现A22到I22被写入1到9，B22到I22被写入10-18……最终看上去像个九九乘法表。
For Each C In Range("A22:I30")
范围A22到I30种每一个单元格
C.Value = i
单元格的值为i
至于怎么生成99乘法表，还真看不出来。
而且，我运行的结果是：
1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18
19 20 21 22 23 24 25 26 27
28 29 30 31 32 33 34 35 36
37 38 39 40 41 42 43 44 45
46 47 48 49 50 51 52 53 54
55 56 57 58 59 60 61 62 63
64 65 66 67 68 69 70 71 72
73 74 75 76 77 78 79 80 81