如何让Excel根据A1单元格数字类型在A2执行不同操作？

操作优先级规则 #

• 优先级1：若A1为质数（1不视为质数，按奇数处理），则A2 = A1 - 前一个质数
• 优先级2：若A1为完全平方数，则A2 = √A1
• 若以上条件均不满足：
  • 若A1是偶数：A2 = A1×2 - 1
  • 若A1是奇数：A2 = A1 + 前一个排列数（首个排列数加0，序列遵循类似斐波那契的递推：1,1,2,3...）

核心问题解决思路 #

1. 关键属性判断实现 #

完全平方数判断

用开平方后取整再验证的方式，公式：

=INT(SQRT(A1))^2 = A1

结果为TRUE则说明A1是完全平方数。

质数判断（排除1）

质数定义为大于1、除了1和自身外无其他因数的自然数，判断公式（数组公式，输入后按Ctrl+Shift+Enter确认，Excel 365/2021可直接回车）：

=AND(A1>1, MIN(MOD(A1, ROW(INDIRECT("2:"&INT(SQRT(A1)))))) <> 0)

• 通过A1>1直接排除1的质数判定
• 生成2到√A1的整数序列，计算A1对这些数的余数，若余数最小值不为0，说明无整除因数，即为质数。

奇偶判断

直接用Excel内置函数：

• 偶数判断：=ISEVEN(A1)
• 奇数判断：=ISODD(A1)

2. 辅助值获取 #

前一个质数获取

取比A1小的最大质数，数组公式：

=MAX(IF(AND(ROW(INDIRECT("2:"&A1-1))>1, MIN(MOD(ROW(INDIRECT("2:"&A1-1)), ROW(INDIRECT("2:"&INT(SQRT(ROW(INDIRECT("2:"&A1-1)))))))) <> 0, ROW(INDIRECT("2:"&A1-1)), 0))

若A1是最小质数2，此公式返回0，符合“无前置质数则减0”的逻辑。

前一个排列数获取

按斐波那契式递推逻辑，假设序列从A1开始向下填充：

• 首个值（A1）的前一个排列数为0
• 后续单元格的前一个排列数为上一行的计算结果，直接用单元格引用即可（比如A3的前一个排列数引用A2的结果）。

3. 完整整合公式 #

将所有逻辑按优先级嵌套，得到A2的最终公式（数组公式，按Ctrl+Shift+Enter输入）：

=IF(AND(A1>1, MIN(MOD(A1, ROW(INDIRECT("2:"&INT(SQRT(A1)))))) <> 0), 
    A1 - MAX(IF(AND(ROW(INDIRECT("2:"&A1-1))>1, MIN(MOD(ROW(INDIRECT("2:"&A1-1)), ROW(INDIRECT("2:"&INT(SQRT(ROW(INDIRECT("2:"&A1-1)))))))) <> 0, ROW(INDIRECT("2:"&A1-1)), 0)),
    IF(INT(SQRT(A1))^2 = A1, 
        SQRT(A1),
        IF(ISEVEN(A1), 
            A1*2 - 1, 
            A1 + IF(ROW(A1)=1, 0, OFFSET(A2, -1, 0))
        )
    )
)

优化提示 #

• 若处理大数值（>10000），质数判断公式会卡顿，建议用VBA自定义质数判断函数提升效率。
• 完全平方数判断可加ROUND优化精度：=ROUND(SQRT(A1), 0)^2 = A1
• 若排列数递推逻辑不是按单元格位置，需调整对应的引用规则。

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