12
返回列表 上一主題 發帖

請問字串要如何統計次數不重復?

oiggu

帖子
11 
主題
4 
精華
0 
積分
23 
點名
0  
作業系統
xp 
軟體版本
sp2 
閱讀權限
10 
性別
男 
來自
u 
註冊時間
2010-5-18 
最後登錄
2024-8-7 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-7-24 12:23 | 只看該作者

請問字串要如何統計次數不重復?

本帖最後由 oiggu 於 2010-7-24 12:47 編輯

請問字串要如何統計次數不重復

字串統計.JPG (54.67 KB)

字串統計.JPG

字串統計.zip (2.35 KB)

收藏 分享
oiggu

zz5151353

帖子
206 
主題
3 
精華
0 
積分
218 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE 365 
閱讀權限
100 
性別
男 
來自
台灣台北 
註冊時間
2010-5-15 
最後登錄
2023-6-18 
13#
發表於 2010-7-31 20:18 | 只看該作者
個人建議
採用合併彙算跟樞紐分析表
都是快速有效方法
300 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2010-7-29 19:51 | 只看該作者
本帖最後由 Hsieh 於 2010-7-29 22:26 編輯

回復 10# oiggu
可見你對程式碼並未真正了解含意
況且這種統計用樞紐分析很快就能解決
建議你先把EXCEL基本功能了解
VBA是輔助工具
有了基本操作的基礎,VBA的運用才會靈活

    test.rar (16.58 KB)
  1. Sub nn()
  2. Dim A As Range, B As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With Sheets("DATE")
  5.    For Each A In .Range(.[B1], .[B1].End(xlToRight))
  6.       For Each B In .Range(.[A2], .[A2].End(xlDown))
  7.          d(A & B) = d(A & B) + Val(.Cells(A.Column, B.Row))
  8.       Next
  9.    Next
  10. End With
  11. With Sheets("A")
  12.    For Each A In .Range(.[B1], .[B1].End(xlToRight))
  13.       For Each B In .Range(.[A3], .[A3].End(xlDown))
  14.          .Cells(A.Column, B.Row) = d(A & B)
  15.       Next
  16.    Next
  17. End With

  19. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2010-7-29 19:35 | 只看該作者
回復 10# oiggu
  1. Sub Ex()
  2.     Dim D As Range, R As Range, M$
  3.     Set D = CreateObject("Scripting.Dictionary")
  4.     With Sheets("date")
  5.         For Each R In .Range("b2", .Cells(.[a1].End(xlDown).Row, .[a1].End(xlToRight).Column))
  6.             M = .Cells(R.Row, 1) & .Cells(1, R.Column)
  7.             D(M) = D(M) + R
  8.         Next
  9.     End With
  10.     With Sheets("A")
  11.         For Each R In .Range("b3", .Cells(.[a3].End(xlDown).Row, .[a1].End(xlToRight).Column))
  12.             M = .Cells(R.Row, 1) & .Cells(1, R.Column)
  13.             R = D(M)
  14.         Next
  15.     End With
  16. End Sub
複製代碼

TOP

oiggu

帖子
11 
主題
4 
精華
0 
積分
23 
點名
0  
作業系統
xp 
軟體版本
sp2 
閱讀權限
10 
性別
男 
來自
u 
註冊時間
2010-5-18 
最後登錄
2024-8-7 
10#
發表於 2010-7-29 19:03 | 只看該作者
回復 9# oiggu

Sub sum()
For k = 2 To 10
Set d = CreateObject("Scripting.Dictionary")
With Sheets("date")
For Each a In Sheets("date").Range(.[a3], .[a65536].End(xlUp))
   d(a) = d(a) + a.Offset(, k - 1)
Next
For Each a In Sheets("a").Range([a3], [a65536].End(xlUp))
      Sheets("a").Cells(a.Row, k) = d(a)
    Next
End With
Next
End Sub

感謝板主
不曉得那裏出錯、 測試出來的值=0 不正確
請問 Sheets("a").Cells(a.Row, k) = d(a) 錯在那裏?
oiggu

TOP

oiggu

帖子
11 
主題
4 
精華
0 
積分
23 
點名
0  
作業系統
xp 
軟體版本
sp2 
閱讀權限
10 
性別
男 
來自
u 
註冊時間
2010-5-18 
最後登錄
2024-8-7 
9#
發表於 2010-7-26 06:36 | 只看該作者
[版主管理留言]
  • Hsieh(2010-7-27 18:57): 應該對上述技巧加以了解,自己嘗試後再針對問題發問

回復 8# Hsieh


感謝超級版主
你寫的 vba 簡潔有力，已經可以統計次數使用正常，
還請教一個問題，如何把同名稱的數字總計起來、
對照 材料項目分類計算，再用 VBA 匯入格式要如何作?

test.zip (3.29 KB)

oiggu

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2010-7-25 20:52 | 只看該作者
回復 7# oiggu
  1. Sub MyCount()

  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")

  6. With Sheet1

  8. For Each a In .Range(.[A1], .[A65536].End(xlUp))
  9. d1(Left(a, 5)) = d1(Left(a, 5)) + Application.Sum(a.Offset(, 1).Resize(, 3))
  10.    If d(Left(a, 5)) = "" Then

  12.       d(Left(a, 5)) = a

  14.       ElseIf InStr(d(Left(a, 5)), a) = 0 Then

  16.       d(Left(a, 5)) = d(Left(a, 5)) & "," & a

  18.     End If

  20. Next

  22. For Each a In .[F5:F7]

  24.    For Each b In .[G3:L3]
  25.       
  26.      If (b.Column Mod 2) = 1 Then Cells(a.Row, b.Column) = UBound(Split(d(a & b), ",")) + 1
  27.      If (b.Column Mod 2) = 0 Then Cells(a.Row, b.Column) = d1(a & b)

  29.     Next

  31. Next

  33. End With

  35. End Sub
複製代碼
學海無涯_不恥下問

TOP

oiggu

帖子
11 
主題
4 
精華
0 
積分
23 
點名
0  
作業系統
xp 
軟體版本
sp2 
閱讀權限
10 
性別
男 
來自
u 
註冊時間
2010-5-18 
最後登錄
2024-8-7 
7#
發表於 2010-7-25 01:05 | 只看該作者
本帖最後由 oiggu 於 2010-7-26 06:29 編輯

謝謝超級版主，太神了。
已經可以統計次數
請問要如何用VBA把金額統計出來
放入格式內、字串開頭+年月統計

統計.JPG (99.92 KB)

統計.JPG

統計.zip (9.51 KB)

oiggu

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-7-24 23:34 | 只看該作者
回復 5# oiggu
  1. Sub MyCount()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet1
  4. For Each a In .Range(.[A1], .[A65536].End(xlUp))
  5.    If d(Left(a, 5)) = "" Then
  6.       d(Left(a, 5)) = a
  7.       ElseIf InStr(d(Left(a, 5)), a) = 0 Then
  8.       d(Left(a, 5)) = d(Left(a, 5)) & "," & a
  9.     End If
  10. Next
  11. For Each a In .[C3:C5]
  12.    For Each b In .[D2:F2]
  13.       .Cells(a.Row, b.Column) = UBound(Split(d(a & b), ",")) + 1
  14.     Next
  15. Next
  16. End With
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

oiggu

帖子
11 
主題
4 
精華
0 
積分
23 
點名
0  
作業系統
xp 
軟體版本
sp2 
閱讀權限
10 
性別
男 
來自
u 
註冊時間
2010-5-18 
最後登錄
2024-8-7 
5#
發表於 2010-7-24 18:25 | 只看該作者
謝謝各位:
經測試都可以使用，但遇到一個問題資料有5000筆會影響執行速度會非常摱
請問是否可改vba 再匯入格子加快執行速度。
oiggu

TOP

        靜思自在 : 人要知福、惜福、再造福。
12
返回列表 上一主題