Excel VBA中Range对象与Split函数的用法及多区域遍历疑问

1. 循环变量i的实际形态 #

For Each i In Range(...)里的i是单个单元格（Cell）对象，属于Range类型的最小单元。不管你遍历的是单连续区域还是多离散区域，VBA都会逐个枚举目标Range里的每一个单元格：

• 单区域时，按单元格的排列顺序（你的例子是列区域，所以从上到下依次遍历）；
• 多区域时，先遍历第一个区域的所有单元格，再遍历第二个区域，以此类推。
  你在本地窗口查看i时，可通过i.Address看当前单元格地址，i.Value看单元格内容，就能明确它的形态。

2. Split函数对Range对象的作用逻辑 #

Split函数要求第一个参数是字符串，但你直接传入单元对象i时，VBA会自动隐式调用单元格的Value属性，取出单元格内的文本内容作为Split的输入。
比如单元格B10内容为"apple,banana,orange"，Split(i, ",")等价于Split(i.Value, ",")，最终返回一个包含"apple"、"banana"、"orange"的字符串数组。

3. 多区域选择的合并处理原理 #

当你使用多区域Range（比如Range("B10:B39, D10:D39, F10:F39")）时，这个Range对象的Areas属性会存储多个独立的子区域。For Each遍历的规则是：

1. 先完整遍历第一个子区域（B10到B39的所有单元格）；
2. 再遍历第二个子区域（D10到D39）；
3. 最后遍历第三个子区域（F10到F39）。
   所有单元格被逐个处理，拆分后的内容都被存入动态数组c，最后通过Application.Transpose(c)把一维数组转成列方向，写入目标Range，看起来就像是多区域被纵向合并成单列处理了。

代码补充说明 #

• ReDim Preserve c(1 To k)：动态扩展数组长度，同时保留已有数据，适合不确定最终元素数量的场景；
• Application.Transpose(c)：VBA一维数组默认是行方向，转置后变成列方向，才能匹配Resize(k)生成的列区域写入。

内容的提问来源于stack exchange，提问作者nightcrawler