小白请教~~概念性问题

hoodean

在一本书中看到一道for each next的题目，将1到100的整数依次填入A1到A100，答案如下：
Sub test()
Dim c As Range, i As Integer
i = 1
For Each c In Range("A1：A100")
c.Value = i
i = i + 1
Next
End Sub

但是我感觉太复杂，于是就改成这样
Sub test()
Dim  i As Integer
i = 1
For Each i In Range("A1：A100")
i = i + 1
Next
End Sub

但是显示 FOR each 控件变量必须为变体或对象
我不是很明白，所以i不能定义为integer吗还是哪里的问题，请各大侠帮忙解答，谢谢！

山菊花

第一、For Each程序结构决定，下面代码中：
For Each c In Range("A1：A100") ，
c 是 Range("A1：A100") 的一份子，Range("A1：A100")是一个单元格区域，c 依次是该区域的每一个单元格，所以 c 必定是一个Range对象，而不能是一个Integer类型的变量。

再如，下面的代码中，程序遍历工作表中的图形集合，那么变量t必定是一个与 Shapes 匹配的 Shape 对象，而不能随心所欲给它定义一个数据类型。

1. Sub test()
   
2.     Dim t As Shape
   
3.     For Each t In Shapes
   
4.         Debug.Print t.Name
   
5.     Next
   
6. End Sub

复制代码

第二、“将1到100的整数依次填入A1到A100”，必须有给单元格赋值的语句“c.Value = i”，这是核心程序，必不可少。i=i + 1只是使变量 i 逐步变大而得到1、2、3、4。。。。，这句可用其它语句代替，如：

1. Sub test()
   
2.     Dim c As Range
   
3.     For Each c In Range("A1:A100")
   
4.         c.Value = c.Row
   
5.     Next
   
6. End Sub

复制代码

hoodean

山菊花 发表于 2016-6-18 17:33
第一、For Each程序结构决定，下面代码中：
For Each c In Range("A1：A100") ， ...

感谢版主大神解答，真是一个获益的版，我还得好好理解理解，请问如何更好地去理解这些最基本概念呢？

山菊花

hoodean 发表于 2016-6-19 09:51
感谢版主大神解答，真是一个获益的版，我还得好好理解理解，请问如何更好地去理解这些最基本概念呢？

如何更好地去理解这些最基本概念呢？
学习、理解比这更基础的知识。

hoodean

山菊花 发表于 2016-6-19 10:03
如何更好地去理解这些最基本概念呢？
学习、理解比这更基础的知识。

谢谢版主回答！