[已解决]公式问题

chengzhiting

请问老师紫色单元格中的公式和黄色单元格中的公式基本一样，为什么黄色单元格中能通过公式计算出值，紫色却没有值呢？

最佳答案

月排行榜 / 总排行榜

xdragon

2013-10-29 23:30

进过测试，是因为你的C列是合并单元格造成的，合并单元格的特点是只有他左上方的那个单元格才有值，所以黄色单元格的公式都是对应的第一行，有计算结果；而紫色的对应的都不在第一行，自然被sumifs认为是不一致的，所以结果是0（并非没有值，只是没有找到一个匹配的）

跳转到最佳答案楼层

as0810114

第一次看见满眼都是公式的附件，初步估计是合并单元格引起的。

xdragon

进过测试，是因为你的C列是合并单元格造成的，合并单元格的特点是只有他左上方的那个单元格才有值，所以黄色单元格的公式都是对应的第一行，有计算结果；而紫色的对应的都不在第一行，自然被sumifs认为是不一致的，所以结果是0（并非没有值，只是没有找到一个匹配的）

chengzhiting

xdragon 发表于 2013-10-29 23:30
进过测试，是因为你的C列是合并单元格造成的，合并单元格的特点是只有他左上方的那个单元格才有值，所以黄色 ...

有什么方法可以改吗？

xdragon

chengzhiting 发表于 2013-10-29 23:41
有什么方法可以改吗？

取消合并单元格，然后填充满内容就行了。。。提供给你个取消合并单元格并填充的代码吧。

1. Sub 取消合并且填充数据()
   
2. If ActiveSheet.ProtectContents Then MsgBox "工作表已保护,本程序拒绝执行！", 64: Exit Sub
   
3. If TypeName(Selection) <> "Range" Then MsgBox "请选择单元格！", 65: Exit Sub
   
4. Application.ScreenUpdating = False
   
5. Application.Calculation = xlManual
   
6. Dim rng As Range, val, cell As String
   
7. For Each rng In Application.Intersect(Selection, ActiveSheet.UsedRange)
   
8. If rng.MergeCells Then
   
9. cell = rng.MergeArea.Address
   
10. val = rng.Value
    
11. rng.UnMerge
    
12. Range(cell).Value = val
    
13. End If
    
14. Next
    
15. Application.Calculation = xlAutomatic
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

chengzhiting

xdragon 发表于 2013-10-30 00:51
取消合并单元格，然后填充满内容就行了。。。提供给你个取消合并单元格并填充的代码吧。

多谢了