帖子: 13
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Singapore
註冊時間: 2013-9-25
最後登錄: 2015-6-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

hihi = =

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-10-15 16:11 | 只看該作者

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

TOP

bmw711208

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Singapore
註冊時間: 2013-9-25
最後登錄: 2015-6-19

3^#

發表於 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

hihi = =

TOP

bmw711208

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Singapore
註冊時間: 2013-9-25
最後登錄: 2015-6-19

4^#

發表於 2013-10-15 20:50 | 只看該作者

回復 3# bmw711208

回到家上傳檔案請各位指導幫忙謝謝

123.zip (11.19 KB)

hihi = =

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

5^#

發表於 2013-10-16 08:28 | 只看該作者

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

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

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 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

複製代碼

TOP

bmw711208

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Singapore
註冊時間: 2013-9-25
最後登錄: 2015-6-19

7^#

發表於 2013-10-16 20:59 | 只看該作者

回復 6# stillfish00

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

hihi = =

TOP

[發問] 如何計算關鍵字出現次數?

[發問] 如何計算關鍵字出現次數?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]