国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

Excel統計某電話號碼有多少人打過

2024-08-23 19:47:07
字體:
來源:轉載
供稿:網友

  派出所的一個朋友在調查一起案件的時候,遇到了一個如題的問題,請我幫忙。由于要保密他不能提供原始數據,只是給我談了一下要求。目前他們通過一個嫌疑犯的通話記錄,從通話記錄中又列入了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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 毕节市| 吉隆县| 栾川县| 涿州市| 沁阳市| 西华县| 金阳县| 郯城县| 扶沟县| 乐至县| 靖江市| 黄平县| 泰州市| 苏州市| 贺兰县| 庄河市| 东乡| 乐平市| 临海市| 黑龙江省| 忻州市| 方正县| 天峨县| 东乡县| 红安县| 昭通市| 木兰县| 安宁市| 遂溪县| 静宁县| 鄂伦春自治旗| 资源县| 锦屏县| 吴川市| 盐城市| 英超| 淮滨县| 武威市| 赣州市| 崇信县| 明星|