jesscc

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-8-4 09:51 | 只看該作者

[發問] 列出不相同數值或字串出現次數

本帖最後由 jesscc 於 2019-8-4 09:53 編輯

問題在附件敘述
[attach]31120[/attach]

test.rar (7.25 KB)

樓主熱帖

Jess

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

12^#

發表於 2023-6-5 16:11 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習1#範例方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST_1()
Dim Brr, Crr, Y, R&, i&, j%, N&, T1$, T2$, V1&, V2&
Set Y = CreateObject("Scripting.Dictionary")
[E2:F2000].ClearContents
Brr = Range([B7], Cells(Rows.Count, 1).End(3))
ReDim Crr(1 To UBound(Brr), 1 To 2)
For i = 1 To UBound(Brr)
T1 = Brr(i, 1): T2 = Brr(i, 2)
If T1 = "" Or Val(T2) = 0 Then GoTo i01
V1 = Val(T2): V2 = StrReverse(Split(StrReverse(T2), "-")(0))
For j = V1 To V2
   If Y(T1) = "" Then N = N + 1: Y(T1) = N: Crr(N, 1) = T1
   If Y(T1 & j) = "" Then
      R = Y(T1): Y(T1 & j) = 1: Crr(R, 2) = Crr(R, 2) + 1
   End If
Next
i01: Next
If N > 0 Then [E2].Resize(N, 2) = Crr
Set Y = Nothing: Erase Brr, Crr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-11

熱烈參與勳章

11^#

發表於 2019-8-6 09:46 | 只看該作者

回復 10# jesscc

放大取 >=5 結果一樣 5 9 99 999 均可

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

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

10^#

發表於 2019-8-5 20:07 | 只看該作者

hcm19522 發表於 2019-8-5 12:29

h大,我看了您的公式，有一點不明白,就是
E7:E17=IF(ISERR(FIND("-",D7)),(COUNTIFS($A$7:A7,A7,D$7:D7,D7)=1)*1,MID(D7,FIND("-",D7)+1,9)-LEFT(D7,FIND("-",D7)-1)+1)
其中那個9是什麼意思?D欄的資料，總字元長度不是最多也只有5個字元嗎?

Jess

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-11

熱烈參與勳章

9^#

發表於 2019-8-5 12:29 | 只看該作者

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

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

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

8^#

發表於 2019-8-4 21:13 | 只看該作者

種類其實不是水果，只有三大類。

小弟VBA很粗淺，我是第一次看到公式搭配程式這樣的寫法。
想請問准大
GetCount 是自定義函數的名稱嗎?
If Arr(i, 1) <> C Or Val(Brr(i, 1)) = 0 這一段完全看不懂
能請准大教一下嗎?

Jess

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^#

發表於 2019-8-4 20:47 | 只看該作者

以下程式碼放在一般模組:
Function GetCount(xA As Range, xB As Range, C$)
Dim Arr, Brr, xD, i&, j&, B
Set xD = CreateObject("Scripting.Dictionary")
Arr = xA: Brr = xB
For i = 1 To UBound(Arr)
If Arr(i, 1) <> C Or Val(Brr(i, 1)) = 0 Then GoTo 101
B = Split(Brr(i, 1) & "-" & Brr(i, 1), "-")
For j = B(0) To B(1): xD(j) = 1: Next j
101: Next
GetCount = xD.Count
End Function

D3/公式:
=IF(B3="","",GetCount(A$7:A$20,D$7:D$20,B3))

資料多的話, 應該會卡
===============================

TOP

准提部林