Excel VBA：检测两个单元格公式/公式结构的一致性

咱们要做的这个功能，核心就是判断一个单元格的公式是不是从左侧或者上方单元格复制过来的，本质是验证两个公式的可比性，得从三个核心维度来校验：

• 公式结构必须完全一致：除了单元格引用部分，其他的运算符、函数、常量都得一模一样。比如一个是=SUM(A1:B2)+$C$3，另一个是=SUM(C1:D2)+$C$3，结构就是一致的；但如果一个是=SUM(A1:B2)+$C$3，另一个是=AVERAGE(A1:B2)+$C$3，结构就不匹配，直接排除。
• 绝对单元格引用必须完全匹配：带$的绝对引用，不管怎么复制都不会变动，所以两个公式里的绝对引用必须完全相同。比如原公式里有$A$1，复制后的公式里也得是$A$1，不能变成$B$1或者$A$2。
• 相对单元格引用的变化要符合复制规则：这是最关键的部分。如果是从上方单元格（比如B4）复制到当前单元格（B5），那所有相对引用的行号都要+1，列号保持不变；如果是从左侧单元格（比如A5）复制到当前单元格（B5），那所有相对引用的列号要+1，行号保持不变。

举个实际例子：假设Sheet2的B5单元格公式是=Sheet1!B3+$A$1/10，咱们来验证两种复制场景：

如果是从Sheet2的B4复制过来的，那B4的公式应该是=Sheet1!B2+$A$1/10——相对引用的行号从2变成3（+1），绝对引用$A$1没变，结构完全一致，符合复制规则。
如果是从Sheet2的A5复制过来的，那A5的公式应该是=Sheet1!A3+$A$1/10——相对引用的列号从A变成B（+1），绝对引用没变，结构一致，也符合规则。

具体实现的时候，可以按这几步拆解：

1. 解析公式：把公式里的所有单元格引用（包括跨工作表的）提取出来，区分每个引用是绝对行、绝对列、完全绝对还是相对引用。
2. 对比结构：把所有引用替换成统一占位符（比如把所有单元格引用换成{REF}），然后对比两个公式的占位符版本是否完全相同，相同就说明结构一致。
3. 校验绝对引用：把两个公式里的完全绝对引用（比如$A$1）、绝对行引用（比如A$1）、绝对列引用（比如$A1）分别提取出来，逐一对比，必须完全匹配。
4. 验证相对引用的偏移量：计算当前单元格和候选单元格（左侧/上方）的行偏移量和列偏移量，然后检查每个相对引用的行号、列号变化是否和这个偏移量完全一致。比如候选单元格是上方的B4，行偏移是+1，那所有相对引用的行号都要比原公式里的大1，列号不变。

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