如何根据条件在电子表格中应用不同的日期调整公式？

方法1：SWITCH函数（Excel 2019及以上版本适用） #

SWITCH是嵌套IF的理想替代，语法清晰，支持多条件匹配，可无限追加规则：

=SWITCH(N2,
    "15th", IF(DAY(I2)<=15, DATE(YEAR(I2), MONTH(I2), 15), DATE(YEAR(I2), MONTH(I2)+1, 15)),
    "月末", EOMONTH(I2, 0),
    "下周一", I2 + (8 - WEEKDAY(I2, 2)),
    // 直接追加新的「规则值, 对应公式」对即可
    I2 // 无匹配时返回原日期
)

• 每一组"规则值", 公式对应一个调整逻辑
• 最后一个参数为默认值，避免无匹配时返回错误

方法2：LOOKUP函数（兼容旧版Excel） #

如果无法使用SWITCH，可借助辅助区域实现：

1. 在任意空白区域（如Sheet2的A:B列）建立规则映射表：
   • A列：输入规则名称（如"15th"、"月末"）
   • B列：输入对应日期调整公式（例如=IF(DAY(I2)<=15, DATE(YEAR(I2), MONTH(I2),15), DATE(YEAR(I2), MONTH(I2)+1,15))）
2. 在目标单元格使用公式：

=LOOKUP(N2, Sheet2!$A$2:$A$10, Sheet2!$B$2:$B$10)

注意：LOOKUP要求规则列（A列）为升序排列，否则可能匹配失效。

方法3：VBA自定义函数（复杂场景首选） #

当规则数量极多或逻辑复杂时，自定义函数更易维护：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴代码：

Function AdjustDeadline(originalDate As Date, rule As String) As Date
    Select Case rule
        Case "15th"
            AdjustDeadline = IIf(Day(originalDate) <= 15, _
                DateSerial(Year(originalDate), Month(originalDate), 15), _
                DateSerial(Year(originalDate), Month(originalDate) + 1, 15))
        Case "月末"
            AdjustDeadline = DateSerial(Year(originalDate), Month(originalDate) + 1, 0)
        Case "下周一"
            AdjustDeadline = originalDate + (8 - Weekday(originalDate, vbMonday))
        // 新增规则只需添加新的Case分支
        Case Else
            AdjustDeadline = originalDate
    End Select
End Function

2. 在Excel单元格中调用：

=AdjustDeadline(I2, N2)

后续修改或新增规则，只需编辑VBA代码，无需逐个调整单元格公式。

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