别再手动改Excel了！用VBA的For Each循环，5分钟搞定1000行数据批量处理

解放双手：用VBA的For Each循环实现Excel数据批量处理革命

每天面对成百上千行的Excel数据，你是否还在重复着复制、粘贴、修改格式的机械操作？财务人员需要为所有金额添加货币符号，人力资源专员要统一调整员工编号格式，教师得给几百份成绩单标注不及格标记——这些看似简单的任务，一旦数据量上来，就会变成吞噬时间的黑洞。

1. 为什么For Each循环是Excel效率神器

For Each循环在VBA中扮演着数据批量处理的瑞士军刀角色。与传统的For循环不同，它不需要关心索引或计数器，而是直接遍历集合中的每个元素。这种特性在处理Excel范围时尤其强大，因为你不需要知道具体有多少行数据，循环会自动适应。

想象一下这样的场景：你需要为销售报表中所有超过10000元的订单添加特殊标记。手动操作可能需要滚动屏幕、逐行检查、然后设置格式，整个过程至少需要半小时。而For Each循环可以在几秒内完成同样的工作，准确率100%。

For Each的核心优势：

• 自适应数据量：无论10行还是10000行，代码不变
• 直接对象操作：无需处理复杂单元格地址
• 代码可读性高：逻辑清晰，维护简单
• 执行效率优异：比手动操作快数百倍

2. For Each循环实战：从基础到高级应用

2.1 基础语法解析

For Each循环的标准结构非常直观：

For Each element In collection
    ' 处理element的代码
Next element

让我们看一个最简单的例子——为A列所有单元格填充序号：

Sub 填充序号()
    Dim cell As Range
    Dim i As Integer
    i = 1
    
    For Each cell In Range("A1:A100")
        cell.Value = i
        i = i + 1
    Next cell
End Sub

提示：变量cell在这里代表Range集合中的每个单元格对象，你可以随意命名，但使用有意义的名称会让代码更易读。

2.2 实际业务场景应用

场景一：批量添加前缀

市场部需要为所有产品编号添加"SKU-"前缀：

Sub 添加产品前缀()
    Dim rng As Range
    
    ' 假设产品编号在B列，从第2行开始
    For Each rng In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)