Excel VBA如何实现遍历单元格执行自定义函数，避免重复写循环代码

方案1：轻量通用循环实现（无额外依赖，适配所有Excel版本） #

VBA没有原生的函数作为参数传递的语法，但可以通过Application.Run方法按名称调用过程，实现你要的通用遍历逻辑，零额外学习成本即可快速落地。

首先实现通用遍历单元格的方法：

' 通用遍历选中区域单元格的方法
' 参数1：要执行的过程名称，参数2到n：要传给目标过程的额外参数
Sub LoopOverSelectedCells(ProcName As String, Optional Args1 As Variant = Empty, Optional Args2 As Variant = Empty, Optional Args3 As Variant = Empty)
    Dim c As Range
    Dim selectedRange As Range
    ' 先校验选中的是不是区域，避免报错
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中单元格区域", vbExclamation
        Exit Sub
    End If
    Set selectedRange = Selection
    
    For Each c In selectedRange.Cells
        ' 按名称调用过程，把单元格和参数传进去
        Select Case True
            Case IsEmpty(Args1): Call Application.Run(ProcName, c)
            Case IsEmpty(Args2): Call Application.Run(ProcName, c, Args1)
            Case IsEmpty(Args3): Call Application.Run(ProcName, c, Args1, Args2)
            Case Else: Call Application.Run(ProcName, c, Args1, Args2, Args3)
        End Select
    Next c
End Sub

你需要的具体业务逻辑只需要写对应接收单元格为第一个参数的Sub即可，不需要重复写循环结构：

' 示例1：给单元格值加N
Sub AddNToValue(c As Range, N As Long)
    If IsNumeric(c.Value) Then c.Value = c.Value + N
End Sub

' 示例2：修改单元格填充色
Sub ChangeCellColor(c As Range, ColorIndex As Long)
    c.Interior.ColorIndex = ColorIndex
End Sub

' 示例3：自定义处理逻辑
Sub FooProcess(c As Range, Param1 As String, Param2 As String)
    c.Value = Param1 & "_" & c.Value & "_" & Param2
End Sub

调用方式非常简洁：

Sub 批量执行任务()
    ' 先选中你要处理的单元格
    ' 给每个单元格加1
    LoopOverSelectedCells "AddNToValue", 1
    ' 把每个单元格填充色改为红色（ColorIndex=3）
    LoopOverSelectedCells "ChangeCellColor", 3
    ' 执行自定义Foo逻辑
    LoopOverSelectedCells "FooProcess", "前缀", "后缀"
End Sub

如果需要更多参数，只要在通用LoopOverSelectedCells方法里追加可选参数即可，完全覆盖日常开发需求。

方案2：接口实现（适合需要更复杂参数、状态保存的场景） #

如果你的处理逻辑需要更灵活的传参、或者需要在处理过程中保存状态，可以用VBA的类接口实现，逻辑更内聚，无参数数量限制：

1. 先插入一个类模块，命名为ICellProcessor，仅写接口定义：

Public Sub Process(c As Range)
End Sub

2. 每个具体处理逻辑写一个类实现这个接口，比如要实现加N的逻辑，新建类模块AddNProcessor：

Implements ICellProcessor
Public N As Long ' 可直接存储自定义参数、状态

Private Sub ICellProcessor_Process(c As Range)
    If IsNumeric(c.Value) Then c.Value = c.Value + N
End Sub

3. 适配接口的通用循环方法：

Sub LoopOverSelectedCells2(Processor As ICellProcessor)
    Dim c As Range
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中单元格区域", vbExclamation
        Exit Sub
    End If
    For Each c In Selection.Cells
        Processor.Process c
    Next c
End Sub

调用示例：

Sub 测试接口方案()
    Dim processor As New AddNProcessor
    processor.N = 5 ' 直接给处理逻辑的参数赋值
    LoopOverSelectedCells2 processor
End Sub

你也可以按照相同的逻辑扩展出LoopOverWorkSheets、LoopOverShapes等其他通用遍历方法，彻底消除重复代码。

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