麻辣家族討論版版 » Excel程式區 » 請教如何統計個別人員的不重複股票清單

返回列表下一主題上一主題發帖

請教如何統計個別人員的不重複股票清單

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-6-28 13:49 | 只看該作者

請教如何統計個別人員的不重複股票清單

本帖最後由 peter460191 於 2021-6-28 13:50 編輯

請教如何統計個別人員的不重複股票清單,不好意思!附件上傳不了~~

樓主熱帖

收藏

peter460191

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

2^#

發表於 2021-6-28 16:23 | 只看該作者

回復 1# peter460191

請測試看看，謝謝。

Sub test()
Dim Arr, xD, xD1, T, TT, i&
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
Arr = Range("A1:B" & [A65536].End(3).Row)
For i = 2 To UBound(Arr)
T = Arr(i, 2): TT = Arr(i, 1) & T: xD(T & "") = ""
If Not xD1.Exists(TT) Then
      xD1(TT & "") = xD1(TT & "") + 1
      xD1(T & "") = xD1(T & "") + xD1(TT & "")
End If
Next
Range("E2").Resize(xD.Count) = Application.Transpose(xD.keys)
With Range("D2").Resize(xD.Count, 3)
.Sort key1:=.Item(2), Header:=xlNo
Arr = .Value
For i = 1 To UBound(Arr)
      T = Arr(i, 2): Arr(i, 1) = i: Arr(i, 3) = xD1(T & "")
Next
.Value = Arr
End With
End Sub

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

3^#

發表於 2021-6-29 11:03 | 只看該作者

回復 2# samwang
好像不行,今天試著重新上傳,還是不能上傳檔案,所以只能卡圖,抱歉!

peter460191

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-6-29 11:16 | 只看該作者

回復 1# peter460191

如果理解沒錯　範例 A項是否為6才對？　而非５

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

5^#

發表於 2021-6-29 12:32 | 只看該作者

回復 4# singo1232001
了解,謝謝!~~

peter460191

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

6^#

發表於 2021-6-29 12:44 | 只看該作者

回復 3# peter460191

如附件請測試看看，謝謝。

test.zip (556.35 KB)

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

7^#

發表於 2021-6-29 13:25 | 只看該作者

回復 6# samwang

samwang非常謝謝你~~
另請教一下,這種情形有辦法不用VBA寫,用一般函數或矩陣寫嗎?

peter460191

大學生 Rank: 4

帖子: 1410
主題: 4
精華: 0
積分: 1420
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-4-13

熱烈參與勳章

8^#

發表於 2021-6-29 14:05 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589860035

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

9^#

發表於 2021-6-29 15:13 | 只看該作者

本帖最後由 samwang 於 2021-6-29 15:16 編輯

回復 7# peter460191

加了用函數方式表示，請再測試看看，謝謝

test2.zip (556.97 KB)

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

10^#

發表於 2021-6-29 16:35 | 只看該作者

回復 8# hcm19522
非常謝謝 hcm19522
可以了,函數也可以了,你們真是太強了,要花一點時間來研究VBA&函數的兩種寫法
再一次謝謝你們.

peter460191

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

返回列表下一主題上一主題