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

作者&投稿:柘兴 (若有异议请与网页底部的电邮联系)

派出所的一个朋友在调查一起案件的时候,遇到了一个如题的问题,请我帮忙。由于要保密他不能提供原始数据,只是给我谈了一下要求。目前他们通过一个嫌疑犯的通话记录,从通话记录中又列入了n个新嫌疑犯,而且也得到每个嫌疑犯的通话记录。现在就要将这些通话记录进行统计,即同一个电话号码,每个嫌疑犯打了多少次,有多少个嫌疑犯同时打过同一个号码。

   根据上述总结,Excel表如下:

   图一:原始数据表

图二:统计结果表

上图说明:

图一:用户一、用户二、用户三、用户四正面的数字为模拟的电话号码;方向是指主叫还是被叫,没有什么意义。

图二:用户正面的数字是该电话所使用的次数,如果一个电话只被某一用户打过,这样就不统计,换句话说就是统计结果表中的电话号码至少被两个以上的用户打过。

解决的思路:

⒈ 此统计无法使用函数、数据透视表等普通的方法来解决。我采用了VBA编程来实现的统计。

⒉ 首先将所有用户的电话(不重复,重复的只取一次),提取出来存放到统计结果表中。这样结果表中的电话是唯一的。

⒊ 通过结果表的电话号码为基础,统计每个用户使用该号码的次数并将统计的结果存放到结果表该用户下。

⒋ 删除同一个电话号码被两个以下用户使用的行。

解决的方法:

⒈ 因为用户的数量是未知的,但从第2列开始是已经的,这样我们就可以通过循环来进行统计。循环的条件通过第1行从第2列开始,单元格不空。

⒉ 每个用户的电话号码循环与⒈类似

具体的程序源代码如下:

Private Sub CommandButton1_Click()

Sheets(2).Rows(2 ":" 65536) = ""

Sheets(2).Columns("B:IV") = ""

Dim Ls, i, j, Isa, k, yhs

Isa = False

i = 2

If Sheets(1).Cells(1, 2) = "" Then

MsgBox "没有用户,无法统计!", vbOKOnly + vbCritical, "错误提示"

Exit Sub

Else

Do While True

If Sheets(1).Cells(1, i) "" Then

Sheets(2).Cells(1, i) = Sheets(1).Cells(1, i)

i = i + 1

Else

Exit Do

End If

Loop

yhs = i - 1

End If

Ls = 2

Do While Sheets(1).Cells(1, Ls) ""

i = 2

Do While Sheets(1).Cells(i, Ls) ""

If Sheets(2).Cells(2, 1) = "" Then

Sheets(2).Cells(2, 1) = Sheets(1).Cells(i, Ls)

Else

j = 2: Isa = False

Do While Sheets(2).Cells(j, 1) ""

If Sheets(2).Cells(j, 1) = Sheets(1).Cells(i, Ls) Then Isa = True: Exit Do

j = j + 1

Loop

If Not Isa Then Sheets(2).Cells(j, 1) = Sheets(1).Cells(i, Ls)

End If

i = i + 1

Loop

Ls = Ls + 1

Loop

Ls = 2

Do While Sheets(2).Cells(1, Ls) ""

i = 2

Do While Sheets(2).Cells(i, 1) ""

j = 2: k = 0

Do While Sheets(1).Cells(j, Ls) ""

If Sheets(2).Cells(i, 1) = Sheets(1).Cells(j, Ls) Then k = k + 1

j = j + 1

Loop

If k 0 Then Sheets(2).Cells(i, Ls) = k

i = i + 1

Loop

Ls = Ls + 1

Loop

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

' 删除非同一电话多个用户使用的行

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

i = 2

Do While Sheets(2).Cells(i, 1) ""

j = 2: k = 0

Do While j = yhs

If Sheets(2).Cells(i, j) "" Then k = k + 1

j = j + 1

Loop

If CInt(k) 2 Then

Sheets(2).Rows(i).Delete Shift:=xlUp '删除i行

Else

i = i + 1

End If

Loop

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

MsgBox "统计完毕!", vbOKOnly + vbInformation, "系统提示"

Sheets(2).Select

End Sub



~

如何用excel提取电话号码?
答:可以用find函数找到1在单元格内的位置,然后用mid函数从1所在位置开始提取11位数字,具体公式为:=MID(A2,FIND(1,A2,1),11)第二步,提取姓名,由于姓名有三个字的,也有两个字的,以电话号码这11数据为整体,确定名字的位置,具体公式:=LEFT(A2,FIND(C2,A2,1)-1)第三:提取位置:还是以电话号...

excel提取手机号码的方法实例教程
答:excel提取手机号码案例一:下图所示A列是一些电话号码,需要提取其中的电话号码,效果如B列所示。这个案例可以考察大家对分列命令的掌握程度。操作方法是:选择A2:A5区域,单击数据——分列,弹出“文本分列向导”,选择“分隔符号”,单击“下一步”。然后分隔符号勾选“其他”,输入“-”,并勾选“连续...

在Excel录入电话号码,怎么统计电话号码的数量
答:可以使用Excel中的“数据透视表”功能来统计电话号码的数量。具体步骤如下:1. 在电话号码所在的列中,选中所有数据。2. 点击“数据”选项卡,然后在“数据工具”区域中找到“数据透视表”。3. 在弹出的“创建数据透视表”对话框中,确认数据的源区域,然后选择将数据透视到哪个位置,比如选择“新工作...

excel怎么用函数提取指定内容excel怎么用函数提取指定内容的数据_百 ...
答:要提取相对应的数据,可以使用Excel的VLOOKUP函数。以下是步骤:1. 在一个工作表中,选择要提取数据的区域(通常是一个表格),并确保该区域有一个唯一的标识符列。例如,如果您要提取客户的电话号码,则客户的姓名应该是唯一标识符。2. 在另一个工作表中,创建一个表格,以便您可以输入要查找的标识符...

excel 电话号码使用情况统计
答:公式为:=IF(OR(COUNT(C1)=0,LEN(C1)<>11),"不合格",IF(COUNTIF(C:C,C1)=1,"","重复"&COUNTIF(C:C,C1)&"个"))公式解析:判断电话号码是数字,并且位数为11位,否则“不合格”。然后对合格的电话号码做重复数量统计,不重复的输出为空,重复的显示重复数量。如下图所示:...

求助:怎样用EXCEL函数统计一个表里面电话号码出现的次数?
答:抱歉,您需要提供更具体的问题和背景信息才能得到准确的回答。请详细描述您想统计的电话号码使用情况和数据来源,以及您希望得到的结果。

如何统计excel里面电话号码出现的次数,我把通话记录导出表格里面,想统 ...
答:很简单,第一步,对电话号码所在的列排序,升降任意,目的只是保证同一个号码在一起 第二步,点击数据分页-分类汇总-如果出现提示Excel无法确定标签的时候按确定,将第一行选为标签。在弹出的分类汇总对话框里,选择字段:电话号码所在列,汇总方式:计数,选定汇总项:电话号码所在列,按确定。每个不同...

用excel中筛选电话号码,在3个工作薄中要筛选前30-40个打的最多的号码...
答:这个可以用以下方法:1.先新建一个工作表,把所有数据都复制到这一个表格里面(数据从a2开始)。多余的数据建议不要复制,如通话时长等。2.假设电话号码在a列,从a2开始,则b2输入:=INDEX(A:A,SMALL(IF(MATCH(A$1:A$1000&"",A$1:A$1000&"",)=ROW($1:$1000),ROW($1:$1000),4^8)...

怎样在excel中查询某人手机号码?
答:电脑、excel、vlookup函数 1、在excel表一B2空格内,输入公式“=VLOOKUP(A2,表二!$A:$B,2,0)”,然后按回车键。2、按回车键后,显示如图示,excel表一中人员张三后面显示对应的表二张三后面的电话号码。3、下拉公式,如图示,EXCEL表一人员姓名后面自动添加表二人员姓名后面对应的电话号码。

excel表格怎么筛选重复的电话号码
答:1、excel表格筛选重复的电话号码需要打开Excel表格,选中包含电话号码的列。2、在菜单栏的开始选项卡中,点击条件格式,选择突出显示单元格规则中的重复值。3、选择重复选项,点击确定。4、所有重复的电话号码将会被突出显示,可以删除重复项。