表格按名字和月份计数，求公式。

金盛鼠

计数表的Sheet1是要上传的，日期不可改变。求的是Sheet1输入一行资料记为一次，但两个表日期不同，如何按区段计数，如图和附件，求大侠们帮帮忙。用不了宏，只求公式，谢谢！


不用回答了，我已找到答案了，答案在下面。

dujunming

将表1改名为"上传表",其他行列未变
'-----------------------------------------------
Sub jishu()
Dim i%, j%, k%, mh1%, mh%
Dim sht1 As Worksheet
Set sht1 = Sheets("上传表")
mh1 = sht1.[A65535].End(xlUp).Row
Sheets("计数").Select
mh = [A65535].End(xlUp).Row
Range("C4:N" & mh).ClearContents
For i = 2 To mh1
   For j = 4 To mh
       If sht1.Cells(i, 3) = Cells(j, 2) Then
           k = Month(sht1.Cells(i, 5))
           Cells(j, k + 2) = Cells(j, k + 2) + 1
       End If
   Next
Next
MsgBox "计数完成！"
End Sub
'------------------------------------------------

dujunming

原表

金盛鼠

dujunming 发表于 2019-7-31 17:14
原表

非常感谢！用不了宏

金盛鼠

已找到解答，=SUMPRODUCT((Sheet1!$B$1:$B$9=$B2)*(MONTH(Sheet1!$D$1:$D$9)=C$1))

mytto88