假设你的公式需要写在D列
Sub AA()
Dim X
X = Range("B65536").End(xlUp).Row
Range("D2:D" & X) = "=IF(AND(B1=B2,C1=C2),1,0)"
End Sub
'在宏代码中多加一句代码，如果你即将对D1写入公式，则在写入公式的代码前插入
Sheet1.Range("D1").NumberFormatLocal = "G/通用格式"
'由于你D1是变化的，所以考虑将上面代码中的1修改为一个变量，如
Sheet1.Range("D" & i).NumberFormatLocal = "G/通用格式"
EXCEL表格一样的公式计算结果显示会不正确，跟电脑没有关系~
之所以出现这种情况，一般是因为表格中公式所在的单元格初始设置为了文本格式（或者公式的来源为文本），然后再设置为常规格式。
解决办法：除了用重新计算的方法外，还可以在第一个公式单元格上双击鼠标左键，然后敲回车。接着，向下复制公式即可。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024