麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何計算關鍵字出現次數? [打印本頁]

作者: bmw711208 時間: 2013-10-15 13:08 標題: 如何計算關鍵字出現次數?

不好意思公司無法上傳圖片或檔案所以直接將EXCEL 貼近來
各位帥哥美女高手們想請問一下，我想要計算"B" 這一整列關鍵字"ADD"出現次數如下面資料
例如ADD 這次在LOG中出現次數並將次數寫入再"G"有寫Z11557的右邊"H"這一欄
因為每天要處理上百件類似案例，每件案例 log 都超過五十萬筆，想請各位教學如何使用 VBA 計算出?

A                                                          B                C                   D                E                F                G                H
2013.08.15 00:02:50 505 CLKST 27    Kind 0    Count 10    Area 10    Z 11557 0
2013.08.15 00:02:56 509 CLKED 26.9
2013.08.15 00:02:58 409 ADD 26.9    X 29    Y 14
2013.08.15 00:03:04 409 ADD 27    X 28    Y 14
2013.08.15 00:03:09 409 ADD 27    X 27    Y 14
2013.08.15 00:03:14 409 ADD 27    X 26    Y 14
2013.08.15 00:07:28 505 CLKST 26.9    Kind 99    Count 0
2013.08.15 00:07:28 509 CLKED 26.9
2013.08.15 00:07:29 505 CLKST 27    Kind 0    Count 10    Area 10    Z 11557 4
2013.08.15 00:07:35 509 CLKED 26.9
2013.08.15 00:07:37 409 ADD 26.9    X 25    Y 15
2013.08.15 00:07:42 409 ADD 27    X 26    Y 15
2013.08.15 00:07:47 409 ADD 26.9    X 27    Y 15
2013.08.15 00:12:01 505 CLKST 26.9    Kind 99    Count 0    Z 11557
2013.08.15 00:12:01 509 CLKED 26.9
2013.08.15 00:12:02 505 CLKST 27    Kind 0    Count 10    Area 10    Z 11557 3
2013.08.15 00:12:08 509 CLKED 27
2013.08.15 00:12:10 409 ADD 26.9    X 8
2013.08.15 00:12:15 409 ADD 26.9    X 7
2013.08.15 00:12:20 409 ADD 26.9    X 6
2013.08.15 00:12:26 409 ADD 26.9    X 5
2013.08.15 00:12:31 409 ADD 26.9    X 4
2013.08.15 00:12:36 409 ADD 26.9    X 3
2013.08.15 00:12:42 409 ADD 27    X 2
2013.08.15 00:12:47 409 ADD 26.9    X 2
2013.08.15 00:12:49 409 ADD 26.9    X 3
2013.08.15 00:12:55 409 ADD 26.9    X 4
2013.08.15 00:13:00 409 ADD 26.9    X 5
2013.08.15 00:13:05 409 ADD 26.9    X 6
2013.08.15 00:13:11 409 ADD 26.9    X 7
2013.08.15 00:13:16 409 ADD 26.9    X 8
2013.08.15 00:16:36 505    NPLST 27    Kind 99    Count 0    Z 11557
2013.08.15 00:16:37 509    NPLED 27
2013.08.15 00:16:37 505    NPLST 27    Kind 0    Count 10    Area 10    Z 11557 14

2013.08.15 00:16:43 509    NPLED 26.9

作者: stillfish00 時間: 2013-10-15 16:11

回復 1# bmw711208
壓縮再上傳檔案看看吧，你的描述和欄位對不上

作者: bmw711208 時間: 2013-10-15 16:59

回復 2# stillfish00

不好意思 stillfish00 大大貼上來多一個欄位我修正一下，檔案我下班後補上來感謝..
我想要計算"C" 這一整列關鍵字" ADD"出現次數如下面資料
例如ADD 這次在LOG中出現次數並將次數寫入再"H"有寫Z11557的右邊"I"這一欄
因為每天要處理上百件類似案例，每件案例 log 都超過五十萬筆，想請各位教學如何使用 VBA 計算出?

A                                                 B                C       D          E                F                               G                H          I
2013.08.15 00:02:50       505       CLKST    27       Kind 0       Count 10       Area 10       Z 11557 0
2013.08.15 00:02:56       509       CLKED 26.9
2013.08.15 00:02:58       409       ADD       26.9    X 29       Y 14
2013.08.15 00:03:04       409       ADD       27       X 28       Y 14
2013.08.15 00:03:09       409       ADD       27       X 27       Y 14
2013.08.15 00:03:14       409       ADD       27       X 26       Y 14
2013.08.15 00:07:28       505       CLKST       26.9       Kind 99       Count 0
2013.08.15 00:07:28       509       CLKED       26.9
2013.08.15 00:07:29       505       CLKST       27       Kind 0       Count 10       Area 10       Z 11557 4
2013.08.15 00:07:35       509       CLKED       26.9
2013.08.15 00:07:37       409       ADD       26.9       X 25       Y 15
2013.08.15 00:07:42       409       ADD       27       X 26       Y 15
2013.08.15 00:07:47       409       ADD       26.9       X 27       Y 15
2013.08.15 00:12:01       505       CLKST       26.9       Kind 99       Count 0       Z 11557
2013.08.15 00:12:01       509       CLKED       26.9
2013.08.15 00:12:02       505       CLKST       27       Kind 0       Count 10       Area 10       Z 11557 3
2013.08.15 00:12:08       509       CLKED       27
2013.08.15 00:12:10       409       ADD       26.9       X 8
2013.08.15 00:12:15       409       ADD       26.9       X 7
2013.08.15 00:12:20       409       ADD       26.9       X 6
2013.08.15 00:12:26       409       ADD       26.9       X 5
2013.08.15 00:12:31       409       ADD       26.9       X 4
2013.08.15 00:12:36       409       ADD       26.9       X 3
2013.08.15 00:12:42       409       ADD       27       X 2
2013.08.15 00:12:47       409       ADD       26.9       X 2
2013.08.15 00:12:49       409       ADD       26.9       X 3
2013.08.15 00:12:55       409       ADD       26.9       X 4
2013.08.15 00:13:00       409       ADD       26.9       X 5
2013.08.15 00:13:05       409       ADD       26.9       X 6
2013.08.15 00:13:11       409       ADD       26.9       X 7
2013.08.15 00:13:16       409       ADD       26.9       X 8
2013.08.15 00:16:36       505       NPLST       27       Kind 99       Count 0       Z 11557
2013.08.15 00:16:37       509       NPLED       27
2013.08.15 00:16:37       505       NPLST       27       Kind 0       Count 10       Area 10       Z 11557 14
2013.08.15 00:16:43       509       NPLED       26.9

作者: bmw711208 時間: 2013-10-15 20:50

回復 3# bmw711208

回到家上傳檔案請各位指導幫忙謝謝
[attach]16343[/attach]

作者: joey0415 時間: 2013-10-16 08:28

http://blog.bestdaylong.com/2013/09/excelsql.html

請利用excel與sql綜合技巧，一下子就辦好了

作者: stillfish00 時間: 2013-10-16 10:43

回復 4# bmw711208

Sub TEST()
Dim r As Long, c As Range
Application.ScreenUpdating = False
With ActiveSheet
.UsedRange.AutoFilter Field:=8, Criteria1:="Z 11557" '先篩選，減少loop次數
r = 1
For Each c In .Range("H2:H" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
c.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(.Range("C" & r & ":C" & c.Row), "= ADD")
r = c.Row
Next c
.[A1].AutoFilter
End With
Application.ScreenUpdating = True
End Sub

複製代碼

作者: bmw711208 時間: 2013-10-16 20:59

回復 6# stillfish00

太感謝你了 stillfish00 大大
今天一個下午已經做完一個月的份量了!!
感激不盡:'(

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)