为什么填充后结果为0，公式没错

quqiyuan

两种方法供你参考，一个indirect，一个麻烦一点，其实最方便还是最开始那个（最早帖子那个），直接引用单元格，因为超级表左拉右拉还是麻烦点
=SUMIFS(INDIRECT("表1[销量（本）]"),INDIRECT("表1[图书名称]"),$A4,INDIRECT("表1[日期]"),">="&DATE(2013,SUBSTITUTE(@表2[#标题],"月",),1),INDIRECT("表1[日期]"),"<="&DATE(2013,SUBSTITUTE(@表2[#标题],"月",)+1,0))

=SUMIFS(表1[[销量（本）]:[销量（本）]],表1[[图书名称]:[图书名称]],$A4,表1[[日期]:[日期]],">="&DATE(2013,SUBSTITUTE(@表2[#标题],"月",),1),表1[[日期]:[日期]],"<="&DATE(2013,SUBSTITUTE(@表2[#标题],"月",)+1,0))

quqiyuan

提取月份，我觉得用substitute方便，不用match

zhangcheng6688

学习一下字典

Sub test()
arr = Sheets("销售订单").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   If Year(arr(i, 2)) = 2013 Then
      yf = Month(arr(i, 2)) & "月"
      strkey = arr(i, 4) & yf
      d(strkey) = d(strkey) + arr(i, 7)
   End If
Next
brr = Sheets("2013年图书销售分析").[a1].CurrentRegion
For i = 4 To UBound(brr)
   For j = 2 To UBound(brr, 2) - 2
      If d.exists(brr(i, 1) & brr(3, j)) Then
         brr(i, j) = d(brr(i, 1) & brr(3, j))
      Else
         brr(i, j) = 0
      End If
   Next
Next
Sheets("2013年图书销售分析").[a1].CurrentRegion = brr
End Sub

mykitami

是对G列汇总，不是F列