作者:乔山办公网日期:
返回目录:excel表格制作
这个百要度VBA才可以问实答现回
比如答2
Sub tongji()
k = 1
j = 0
If Cells(1, 1) = 2 Then
j = 1
Else
j = 0
End If
For i = 2 To Cells(65000, 1).End(xlUp).Row + 1
If Cells(i, 1) = 2 Then
j = j + 1
Else
If j > 0 Then
Cells(k, 2) = j
k = k + 1
End If
j = 0
End If
Next i
End Sub
选中你所要统计数字的行或列,ctrl+F,查找,就能找出你要查的数字在同一行出现的次数
示例操作
把名称列复制到Y列,点选数据选项卡,删除重复项。
然后Z1输入公式后下拉,B:B为商品列
=COUNTIF(B:B,Y1)
假设这是在A列中的一千多个数据
选中B1:B40
然后输入
=row(a1)&"出现"&countif(A:A,row(a1))&"次"
然后按下ctrl+回车