Question

Excel 用宏应用了公式 却不一样了 都显示#NAME？

比如我再D列要设计公式
=IF(AND(B1=B2,C1=C2),1,0) 即B列和C列上下连着两行相等 则在D列显示1否则显示0
应用了以后也没问题 能正常显示1和0
但是录制成宏 把另一份数据复制过来
在D列的公式就完全乱了 显示成：=IF(AND('B1'='B2',$A:$A=$B:$B),1,0)
跟我之前的不一样 以及还有筛选也变了 这是怎么回事？

Answer 1

假设你的公式需要写在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

追问

在vba的哪里加？顶端？还是结尾

追答

这是重新编写的VBA

Answer 2

'在宏代码中多加一句代码，如果你即将对D1写入公式，则在写入公式的代码前插入
Sheet1.Range("D1").NumberFormatLocal = "G/通用格式"
'由于你D1是变化的，所以考虑将上面代码中的1修改为一个变量，如
Sheet1.Range("D" & i).NumberFormatLocal = "G/通用格式"

追问

在vba的哪里加？顶端？还是结尾

追答

在写入公式的代码前加，具体要看到你的代码才知道。

追问

老板能来个联系方式么 我把我excel发给你看看 特别简单 就是上面那句话的公式 想做成一个宏

Answer 3

EXCEL表格一样的公式计算结果显示会不正确，跟电脑没有关系~
之所以出现这种情况，一般是因为表格中公式所在的单元格初始设置为了文本格式（或者公式的来源为文本），然后再设置为常规格式。
解决办法：除了用重新计算的方法外，还可以在第一个公式单元格上双击鼠标左键，然后敲回车。接着，向下复制公式即可。

追问

都是一样的格式
我把新数据复制过来的时候也选择性粘贴 选择只复制值