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

帖子: 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)

字串統計.zip (2.35 KB)

樓主熱帖

oiggu

帖子: 11
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: sp2
閱讀權限: 10
性別: 男
來自: u
註冊時間: 2010-5-18
最後登錄: 2024-8-7

2^#

發表於 2010-7-24 18:25 | 顯示全部帖子

謝謝各位:
經測試都可以使用，但遇到一個問題資料有5000筆會影響執行速度會非常摱
請問是否可改vba 再匯入格子加快執行速度。

oiggu

帖子: 11
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: sp2
閱讀權限: 10
性別: 男
來自: u
註冊時間: 2010-5-18
最後登錄: 2024-8-7

3^#

發表於 2010-7-25 01:05 | 顯示全部帖子

本帖最後由 oiggu 於 2010-7-26 06:29 編輯

謝謝超級版主，太神了。

已經可以統計次數
請問要如何用VBA把金額統計出來
放入格式內、字串開頭+年月統計

統計.JPG (99.92 KB)

統計.zip (9.51 KB)

oiggu

帖子: 11
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: sp2
閱讀權限: 10
性別: 男
來自: u
註冊時間: 2010-5-18
最後登錄: 2024-8-7

4^#

發表於 2010-7-26 06:36 | 顯示全部帖子

[版主管理留言]

Hsieh(2010-7-27 18:57): 應該對上述技巧加以了解,自己嘗試後再針對問題發問

回復 8# Hsieh

感謝超級版主

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

test.zip (3.29 KB)

oiggu

帖子: 11
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: sp2
閱讀權限: 10
性別: 男
來自: u
註冊時間: 2010-5-18
最後登錄: 2024-8-7

5^#

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