如何修改VBA代码实现Excel两个区域的公式而非值对比？

嘿，这个调整其实超简单！你原来的代码是在对比两个单元格的显示值，要改成对比公式的话，只需要引用单元格的.Formula属性就行——这才是存储单元格公式内容的地方。另外还有个小细节要注意：你代码里用的RGB(500, 0, 0)和RGB(0, 500, 0)是有问题的，RGB函数的参数范围只能是0-255，超过的话会被自动截断成255，所以直接写255才是正确的写法哦。

下面是修改后的完整代码：

Sub AutoFill()
 Dim i As Integer
 Dim j As Integer
 For i = 1 To 10
 For j = 1 To 10
 ' 对比两个单元格的Formula属性（即公式内容）
 If ThisWorkbook.Sheets(1).Cells(i, j).Formula <> ThisWorkbook.Sheets(2).Cells(i, j).Formula Then
 ThisWorkbook.Sheets(2).Cells(i, j).Font.Color = RGB(255, 0, 0) ' 红色标记不同的公式
 Else
 ThisWorkbook.Sheets(2).Cells(i, j).Font.Color = RGB(0, 255, 0) ' 绿色标记相同的公式
 End If
 Next j
 Next i
End Sub

关键修改点说明： #

• 将Cells(i, j)替换为Cells(i, j).Formula：直接访问单元格的公式文本，而非计算后的值
• 修正RGB参数：把500改成255，确保颜色显示正常

如果你的表格里有用到R1C1格式的公式（比如宏录制出来的公式），可以把.Formula换成.FormulaR1C1，效果是一样的，只是对应不同的公式引用格式~

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