如何在VBA自定义函数（UDF）中结合IF语句实现循环？

原代码核心问题 #

1. 偏移逻辑错误：循环中用cell1.Offset(0, i).Value给cell1.Value赋值，不仅修改了单元格原始数据，而且偏移量随i递增（i=1时移1列，i=2时移2列），导致跳过中间单元格，你调试时看到i停留在1是误判。
2. Range对象操作错误：直接修改cell1.Value是修改单元格内容，而非移动Range的引用位置，完全违背了“右移单元格匹配”的需求。
3. 无匹配时返回无效值：如果全程没匹配到，o_date未初始化，返回的默认0值（1900/1/0）会触发Excel值错误。
4. 匹配后未终止循环：找到匹配项后仍继续循环，可能覆盖正确的计算结果。
5. 固定单元格引用：硬编码Range("A3")会导致函数只能在第三行生效，通用性极差。

修正后的代码 #

Function expedia(cellStart As Range, matchVal As Range) As Variant
    Dim currentCell As Range
    Dim o_date As Date
    ' 初始化当前单元格为起始单元格（B3）
    Set currentCell = cellStart
    
    ' 遍历从起始单元格到右侧第7列（共8列：B3到H3）
    For i = 1 To 8
        ' 检查当前单元格值是否匹配
        If currentCell.Value = matchVal.Value Then
            ' 取当前行的A列日期，加上当前单元格的周数
            o_date = DateAdd("ww", currentCell.Value, currentCell.EntireRow.Cells(1, 1))
            ' 找到匹配后立即退出循环，避免覆盖结果
            Exit For
        End If
        
        ' 右移一列，处理下一个单元格
        Set currentCell = currentCell.Offset(0, 1)
    Next i
    
    ' 判断是否找到有效匹配，未找到返回空而非无效日期
    If o_date = 0 Then
        expedia = ""
    Else
        expedia = o_date
    End If
End Function

关键修改说明 #

• 参数名改为cellStart和matchVal，语义更清晰，避免混淆。
• 用Set currentCell = cellStart维护Range引用，通过Offset(0,1)逐列右移，不再修改原始单元格数据。
• 匹配到结果后用Exit For终止循环，防止后续循环覆盖正确值。
• 用currentCell.EntireRow.Cells(1,1)替代固定的Range("A3")，函数可在任意行使用。
• 增加无匹配时的判断，返回空值而非无效日期，避免值错误。
• 函数返回类型改为Variant，支持返回日期或空值两种情况。

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