Board logo

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

作者: 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
  1. Sub TEST()
  2.   Dim r As Long, c As Range
  3.   
  4.   Application.ScreenUpdating = False
  5.   With ActiveSheet
  6.     .UsedRange.AutoFilter Field:=8, Criteria1:="Z 11557"  '先篩選,減少loop次數
  7.     r = 1
  8.     For Each c In .Range("H2:H" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
  9.       c.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(.Range("C" & r & ":C" & c.Row), "= ADD")
  10.       r = c.Row
  11.     Next c
  12.     .[A1].AutoFilter
  13.   End With
  14.   Application.ScreenUpdating = True
  15. End Sub
複製代碼

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

回復 6# stillfish00


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




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