UC知道求助：Excel中函数公式或宏的编写
来源：百度知道 编辑：UC知道 时间：2024/05/22 04:57:47
我要做一个Excel表格，对一些日期（其中有许多重复相同的日期），进行统计不同日期的个数（相同日期算一个）。我不会了，求助诸位老大给我指点，或帮我编个宏。谢谢了！！！
2007-10-10 2007-10-11 2007-10-15 2007-10-15
2007-10-20 2007-10-23 2007-10-23 2007-10-23
2007-10-26 2007-10-27 2007-10-28 2007-10-30
2007-10-30 2007-10-30 2007-10-30 2007-10-31
根据上表，在一个指定单元格显示出2007-10-13以后的，在表中各日期中不同日期的个数（8个）。我曾用
CountIF（a1:d4,">2007-10-13")，结果得出14个。拜托！
2007-10-10 2007-10-11 2007-10-15 2007-10-15
2007-10-20 2007-10-23 2007-10-23 2007-10-23
2007-10-26 2007-10-27 2007-10-28 2007-10-30
2007-10-30 2007-10-30 2007-10-30 2007-10-31
根据上表，在一个指定单元格显示出2007-10-13以后的，在表中各日期中不同日期的个数（8个）。我曾用
CountIF（a1:d4,">2007-10-13")，结果得出14个。拜托！
请确定第一行是表头,把你的表复制一份,在复制的表中运行下面的宏:
该宏会把
Sub AA()
a = Application.InputBox("请输入日期所在列数:") * 1
c = Application.WorksheetFunction.CountA(Range("A:A"))
For I = c To 2 Step -1
For j = I - 1 To 2 Step -1
If Cells(I, a) = Cells(j, a) Then
Cells(I, a).EntireRow.Delete
End If
Next j
Next I
msgbox("共有不同的日期个数为:" & Application.WorksheetFunction.CountA(Range("A:A")))
End Sub
假设日期在 A1:A100
求所有不同日期
=SUMPRODUCT(--(COUNTIF(A1:A100,"="&ROW(INDIRECT(MIN(A1:A100)&":"&MAX(A1:A100))))>0))
求大于2007-10-13
=SUMPRODUCT(--(COUNTIF(A1:A100,"="&ROW(INDIRECT("2007-10-14"&":"&MAX(A1:A100))))>0))