EXCEL表格中,假设数据在A1:A200中,要求1、2、3……分别有几个,B1中输入=TEXT(COUNTIF(A$1:A$200,ROW(A1)),ROW(A1)&"有0个")用自动填充柄 下拉,就可以了。如果想只返回数字,外面的TEXT不要了,公式改为COUNTIF(A$1:A$200,ROW(A1))下拉。就是你说这个1、2是表示日期,那么统计出来的1、2是指什么呢,是1月、2月,还是1月1日,1月2日……,如果是1月,2月,还是放在A1:A200中,B1公式可为=TEXT(SUMPRODUCT(--(MONTH(A$1:A$200)=ROW(A1))),ROW(A1)&"月有0个")下拉。如果是1日,2日……,B1中公式可为=TEXT(SUMPRODUCT(--(DAY(A$1:A$200)=ROW(A1))),ROW(A1)&"日有0个")这个是不考虑年月的日,日期比较复杂,如果你还有什么实际要求,请详细说明。最简单的办法,合并计算其次,数据透视表第三种,去重复后用countif函数。private sub command1_click()dim i%, t%dim s as stringdim n(9) as integers = text1for i = 1 to len(s)t = val(mid(s, i, 1))n(t) = n(t) + 1nextfor i = 0 to 9print i & "有" & n(i) & "个"nextend subprivate sub text1_keypress(keyascii as integer)if keyascii < 48 or keyascii > 57 then keyascii = 0end sub