中国投资网 百科 如何使用Excel统计某电话号码有多少人打过

如何使用Excel统计某电话号码有多少人打过

一个派出所的朋友在调查一个案件的时候,遇到了这样的问题,找我帮忙。因为他不能提供原始数据来保密,就跟我谈了要求。目前,他们已经在一名嫌疑人的电话记录中纳入了N名新的嫌疑人,他们也拿到了每一名嫌疑人的电话记录。现在需要对这些电话记录进行统计,也就是同一个电话号码,每个嫌疑人打过多少次电话,有多少嫌疑人同时给同一个号码打过电话。

根据以上总结,Excel表格如下:

图1:原始数据表

图2:统计结果表

上图:

图1:用户1、用户2、用户3、用户4前面的数字是模拟电话号码;方向指的是主叫方还是被叫方,没有任何意义。

图2:用户正面的数字是手机被使用的次数。如果只有某个用户拨打了电话,则不会被计算在内。换句话说,统计结果表中的电话号码至少被两个用户呼叫过。

解决方案:

1.这种统计无法通过函数和数据透视表等普通方法解决。我用VBA编程实现统计。

首先,提取所有用户的电话(不重复,只重复一次)并存储在统计结果表中。这样,结果表中的电话是唯一的。

3.根据结果表的电话号码,统计每个用户使用该号码的次数,并将该用户下的统计结果存储在结果表中。

1.删除两个或更少用户使用同一电话号码的线路。

解决方案是:

1.因为用户数量未知,但是从2号栏已经可以得到,这样我们就可以通过循环进行统计。循环的条件是从第二列到第一行,并且单元格不为空。

1.每个用户的电话号码周期类似于1。

具体的程序源代码如下:

私有子命令Button1_Click()

床单(2)。rows(2):' 65536)=' '

床单(2)。列(' B:IV')=' '

Dim Ls,I,j,Isa,k,yhs

Isa=假

i=2

如果床单(1)。Cells(1,2)=" "那么

MsgBox '没有用户,不能计数!'vbOKOnly vbCritical,'错误提示'

出口接头

其他

当真实时做

如果床单(1)。单元格(1,I)“”然后

床单(2)。单元格(1,i)=工作表(1)。单元格(1,I)

i=i 1

其他

出口Do

如果…就会结束

yhs=i - 1

如果…就会结束

Ls=2

做While Sheets(1)。单元格(1,ls)' '

i=2

做While Sheets(1)。单元格(I,ls)' '

如果床单(2)。Cells(2,1)=" "那么

床单(2)。单元格(2,1)=工作表(1)。单元格(I,ls)

其他

j=2: Isa=False

做While Sheets(2)。单元格(j,1)' '

如果床单(2)。单元格(j,1)=工作表(1)。Cells(i,Ls) Then Isa=True: Exit Do

j=j 1

如果不是Isa,则表(2)。单元格(j,1)=工作表(1)。单元格(I,ls)

如果…就会结束

i=i 1

Ls=Ls 1

Ls=2

做While Sheets(2)。单元格(1,ls)' '

i=2

做While Sheets(2)。单元格(I,1)' '

j=2: k=0

做While Sheets(1)。单元格(j,ls)' '

如果床单(2)。单元格(I,1)=工作表(1)。单元格(j,ls)那么k=k-1

j=j 1

如果k 0,则Sheets(2)。单元格(I,Ls)=k

i=i 1

Ls=Ls 1

'===========================================

删除同一部电话上未被多个用户使用的线路。

'===========================================

i=2

做While Sheets(2)。单元格(I,1)' '

j=2: k=0

当j=yhs时做

如果床单(2)。Cells(i,j)' '那么k=k 1

j=j 1

如果CInt(k) 2,则

床单(2)。行(I)。删除Shift:=xlup '删除I行

其他

i=i 1

如果…就会结束

'===========================================

MsgBox“统计完毕!”,vbOKOnly vbInformation,'系统提示'

床单(2)。挑选

末端接头

本文来自网络,不代表本站立场,转载请注明出处:https:

如何使用Excel统计某电话号码有多少人打过

中国投资网后续将为您提供丰富、全面的关于如何使用Excel统计某电话号码有多少人打过内容,让您第一时间了解到关于如何使用Excel统计某电话号码有多少人打过的热门信息。小编将持续从百度新闻、搜狗百科、微博热搜、知乎热门问答以及部分合作站点渠道收集和补充完善信息。